Ayuda con data control y sentencias sql

Seba Lozapain!
28 de Septiembre del 2005
Hola, soy argentino de 17, novato en programación. Estoy usando un control data para acceder a una bd hecha con acces 97, me gustaría saber si conoces una forma de concatenar consultas. este es mi problema:

Private Sub cmdbuscar_Click()
bdireccion = txtdireccion

buscado = "[DIRECCION] like '*" & bdireccion & "*' " and "[TIPO] like 'CASA' "

dmodificaciones.Recordset.FindFirst (buscado)

If dmodificaciones.Recordset.NoMatch = True Then ' Si no lo encontro

MsgBox ("La propiedad no se encuentra")

End If
End Sub

cuando agrego lo que resalté en rojo, la búsqueda no funciona. El error es "no coinciden los tipos", tambien probé de concatenarlo pero me da el error "error de sintaxis (falta operador en la expresion)" y me lo da en la linea resaltada con verde.

Bueno, si me podés ayudar buenísimo, sino gracias por leer hasta acá!

Suerte, Seba!

dmlineaweb
28 de Septiembre del 2005
Creo que tu problema esta en la sintaxis. Probá con esta, fijate bien en la consulta y de todas maneras te aconsejo que si querés desarrollar en serio estudies el uso de SQL Server y ADO, es mucho más robusto que Acces . Suerte.

Private Sub CmdBuscar_Click()
Dim bddireccion As String
Dim buscado As String

bdireccion = TxtDireccion.Text

buscado = "[DIRECCION] LIKE '" & bdireccion & "%' AND [TIPO] = 'CASA'"

dmodificaciones.Recordset.FindFirst (buscado)

If dmodificaciones.Recordset.NoMatch = True Then ' Si no lo encontro

MsgBox "La propiedad no se encuentra"

End If
End Sub