Visual Basic - Como puedo conectar Visual Basic con SQLSERVER 7.0

Como puedo conectar Visual basic con los registros de una base de datos SQLSERVER 7.0 para luego poder desarrollar una aplicacion y consultar mi base de datos

Set msConectSQLServer = New ADODB.Connection \'Conexión mediante dns a traves del ODBC creado en el panel de control
With msConectSQLServer
.ConnectionString = \"DSN=\" & sDSN & \";UID=\" & sUID & \";PWD=\" & sPWD & \";\" \'Cadena Conexión
.ConnectionTimeout = LOGIN_TIME_OUT \'Tiempo máximo de conexión
.CommandTimeout = QUERY_TIME_OUT_10_SECONDS \'Tiempo máximo de ejcecutar un Comammd

End With
msConectSQLServer.Open