Visual Basic - Hacer una conección ODBC

Necesito que me ayuden hacer una conección de Visual Basic y SQL con ADO

1) la conexión con la base de sql
dim mibase As Connection

Set mibase = New ADODB.Connection
mibase.ConnectionString = "driver={SQL Server};" & _
"server=MISERVER;uid=;pwd=;database=MIBASE"
mibase.ConnectionTimeout = 30
mibase.Open

2) la apertura de una tabla
dim rs as recordset
Set rs = New ADODB.Recordset

rs.Open "select * from mitabla", mibase, adOpenKeyset, adLockOptimistic
rs.MoveLast