Tengo un problema, tengo un textbox, un datalist y un commanbutton(cmdbuscar) , al escribir uan cadena en el textbos y cmd buscar encuentra todos los datos que empiecen con la cadena y luego los carga en el data list, hasta alli no hay problema , el problema viene cuando quiero hacer una busqueda me dice que no se puede porq e objeto esta abierto, aqui les anexo el codigo, espero su ayuda
Private rsProducto As New ADODB.Recordset
Private Sub cmdBuscar_Click()
With rsProducto
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.Source = "SELECT CodPro, DesPro From Producto Where UPPER(DesPro) LIKE UPPER('" & txtBuscar.Text & "%')"
.Open
End With
Set dblstProducto.RowSource = rsProducto
dblstProducto.ListField = "DesPro"
dblstProducto.BoundColumn = "CodPro"
End Sub
Private Sub Form_Unload(Cancel As Integer)
rsProducto.Close
Set rsProducto = Nothing
End Sub |
