Visual Basic - sql

Amigos

que esta malo aca


SQL$ = "NAME_PDA = ' " & CB_nosdepartida.Text & "'" & " "
SQL$ = SQL$ & " AND CIA = ' " & mcia & "'"
' rs0.Find "Name_pda='" & CB_nosdepartida.text & "'"
rs0.Find SQL

Con la instruccion que tiene el apostrofe de comentario, me funcioba bien, pero tuve la necesidad de agregar la cia (la compañia)
y me da error de sintaxis. o sea que ejecute el find donde el recorset sea igual a lo seleccionado en
el combox y que la cia sea igual a la variable mcia que viene con '001' es texto (ambos son textos)

tambien queria saber si esa instruccion para abrir el recorset esta bien definida. no me esta
marcando error, pero no se si esta se hace esa definision del orden.

Set rs0 = New ADODB.Recordset
rs0.Open "Select * from nosdepartida order by cia+nopda+name_pda asc", Cnn, adOpenDynamic, adLockPessimistic
rs0.MoveFirst

la tabal es asi.

cia nopda name_pda
001 001 aaaaaaaaaaaaaaa
001 002 bbbbbbbbbbbbbb
001 003 cccccccccccccccccccc
001 004 dddddddddddddddddddddddd
001 005 eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

salud,

josé

Jose, porq no intentas modificando tu codigo a algo parecido a esto:

Dim SQL
SQL="Select * from TuTabla Where NAME_PDA ='" & CB_nosdepartida.Text & "'"
SQL=SQL & " And CIA = ' " & mcia & "'"

rs0.RecordSource=SQL

Para tu primera pregunta, claro...

Espero te sea util...Saludos!!!