Dim conn
 Set conn = CreateObject("ADODB.Connection") 
 conn.open "DSN=DSNMy"
 conn.close
 set conn=nothing