Error Run-Time 3001 en VB

peten
27 de Abril del 2004
Hola
Disculpen pero quisiera que me espliquen un poco mas sobre el problema que tengo al utilizar programacion ADO
No entiendo porque sale el errror de RUN-TIME 3001......

Este el codigo que estoy utilizando
- Tengo un formulario el cual tiene un DataCombo y tres cajas de Texto (Text)
al control DataCombo asigne el valor 1-dbcSimpleCombo en su propiedad Style

- Tengo una conexion llamada MAE, que fue creada como origen de datos ODBC

Agradesco la ayuda que puedas brindarme

Atte.
Peten

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset



Private Sub DataCombo1_Change()

Dim r As String

r = "codigo like'" + DataCombo1 + "*'"

If DataCombo1 <> "" Then

rs.Find r,,,1 esta es la parte donde me registra el mensaje de error RUN-TIME 3001

End If

End Sub



Private Sub Form_Activate()

db.Open "DSN=mae"

rs.Open "SELECT codigo,nparte,descrip from xmaestroandina order by codigo", db, adOpenKeyset, adLockPessimistic

DataCombo1.Text = ""

Set DataCombo1.RowSource = rs

DataCombo1.ListField = rs(1).Name

Set Text1.DataSource = rs

Set Text2.DataSource = rs

Set Text3.DataSource = rs

Text1.DataField = rs(0).Name

Text2.DataField = rs(1).Name

Text3.DataField = rs(2).Name

End Sub


al
27 de Abril del 2004
si buscas en la ayuda de vb te saldrá este mensaje " You specified an invalid argument. " lo cual significa que el argumento enviado no es válido, mira a ver si la select es correcta