Visual Basic - Consulta de sql

Hola a todos ojala y me puedan ayudar lo que quiero es conectarme a una bd en sql mediante vb6 y hacer un recordset pero me aprece un error este es mi codigo:

Private Sub cmdAbrir_Click()

Set rst = New ADODB.Recordset
Set cn = New ADODB.Connection

cn.Open ("odbc;database=atk_pba;dsn=MSSQL_VAM")
rst.Open "SELECT * FROM mitabla WHERE micampo = 28", cn, adOpenDynamic, adLockBatchOptimistic

End Sub

Ojala me puedan ayudar de antemano muchas gracias!!

seria interesante que menciones puntualmente el error que te da ok y despues se vera

verifica los nombres del ODBC y del DSN correspondientes, seria bueno ver el error que te muestra.

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Driver={SQL Server};" & _
"Server=pa;" & _
"Database=pubs;" & _
"Uid=eli;" & _
"Pwd=123"

Mira te envio en la forma en que me conecto yo a ver si te ayuda.

Otra cosa si te dice que no se ha definido el metodo o la variable ,o algo asi
es que te faltan las referencias io componentes para el cn y el rs

Coño pana espero que esto te sirva, pero trata de programar mas ordenado, de todos modos verifica si agregast los componentes y las referencias en visual, verifica el nombre del DSN, copia bien la direccion dond se encuentra la tabla ubicada:

Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim SQL As String
Dim PathDeDatos as String
PathDeDatos = "ESCRIBE AQUI LA DIRECCION COMPLETA DOND SE ENCUENTRA LA TABLA"
Set db = OpenDatabase(PathDeDatos, False, False)
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open "DSNdirectorio"