Hola, quieté los parentesis como me recomendaste, pero ahora tengo este error:
"No coinciden los datos en la expresión de criterios"
Asi es como me quedó el código.
Private Sub Form_Load()
Dim marcelo As ADODB.Connection
Dim fabian As ADODB.Recordset
Set marcelo = New ADODB.Connection
marcelo.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Materiales de estudio\viba\taxicom\clientes.mdb;Mode=ReadWrite;P ersist Security Info=False"
marcelo.Open
Set fabian = New ADODB.Recordset
fabian.ActiveConnection = marcelo
fabian.Open "select * from clientes where cli_nrotel = " & vgtelefono
'lblnrotel.Caption = fabian!cli_nrotel
End Sub
tambien probé con:
dim sql as string
sql = "SELECT * FROM clientes WHERE cli_nrotel=" & vbtelefono
fabian.open sql
Y tambien me tira el mismo error