Visual Basic - Como ataco SQL Server 7 con VB?

Hola a todos.
Llegado el momento esperado de pasar de bases de datos Access a SQL Server, me encuentro en el grave problema que no se como acceder a las tablas desde código.Nunca he utilizado ODBC.Ni he tenido que validarme para entrar en una base de datos.¿Saben ustedes de algún tutorial que trate el tema?.Un trozo de código de ejemplo también me valdría.

VB te provee de 4 controladores ODBC para que puedas conectarte con SQL.
El que comun es el ODBC MSDASQL.
el que tu elijas depende de como conozcas a SQL.
Hay uno ODBC MSOLESQL que te conecta directamente y te permite ver todas las tablas, vistas y SP que tengas en SQL.
La manera facil es desde el diseñador de Conexiones con el que cuenta VB 6.0
La manera profesional es que tu levantes toda tu conexion, tus cursores, y controles todos los eventos que genere tu cursor mediante codigo.

Lo quiero hacer de la manera profesional, por código.¿Como es tablezco la conexión?.Supongo que através de ADO es la mejor opción.Mi nivel de SQL es bueno.¿Con que instrucción le pido una consulta?

Muchas gracias desde ya!

Bueno escribo todo el codigo para la conexion de VB con SQl, checar que tengas un ODBC que se llame SIICEBE, o cambias en nombre de tu ODBC como te sea necesario. Espero que investiges todo lo demás.
NOTA: Para que funcione bien tienes que tener la referencia de ADO en tu proyecto.


´ Creado por : Antonio Vázquez Fecha : 2000.08.30
´ Mofificado por : Fecha :

Global adoConexion As ADODB.Connection

Public Sub Conectar()

Dim iRespuesta As Integer ´ Respuesta usuario

Set adoConexion = New ADODB.Connection

´Ayuda del Proveedor por default de ODBC MSDASQL
´@MSITStore:C:\Archivos%20de%20programa\Microsoft%20Visual%20Studio\MSDN98\98VSa\3082\ado200.chm::/mdaprv01_2277.htm

adoConexion.ConnectionString = "PROVIDER=MSDASQL;DSN=SIICEBE;UID=sa;pwd=;" ´ Parametros con DNS y Etiquetas tipo ODBC
adoConexion.ConnectionTimeout = 50 ´ Intervalo de Espera antes de generar Error
adoConexion.CursorLocation = adUseClient ´ Uso de cursores locales de VB 6.0

iRespuesta = vbRetry ´ Constate de Reintentar

Do While iRespuesta <> vbOK ´ Constante de Aceptar

On Error Resume Next

adoConexion.Open

If adoConexion.State = 1 Then ´ Conexion correcta

Cmd.ActiveConnection = adoConexion

iRespuesta