Ayuda con el error 3021

Nohelis
01 de Diciembre del 2003
Tengo una aplicacion que permite guardar y modificar datos de una base de datos pero cuando voy a actualizar me da el error 3021, no hay registros en la base de datos pero los registros existe? que puedo hacer

Samuel
01 de Diciembre del 2003
Me parece que la solucion esta en poner "Persist Security Info=False" al momento de abrir la conexion.

Adjunto codigo de ejemplo y la direccion donde fue encontrado:

http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Databases/Q_20741473.html


Private Sub txtBranchNo_change()
Dim con As ADODB.Connection
Dim rec As ADODB.Recordset
Dim strName As String
Set con = New ADODB.Connection
Set rec = New ADODB.Recordset

strName = "Select PHARMACYBRANCHCODES.[Branch No],PHARMACYBRANCHCODES.[Branch Name] From PHARMACYBRANCHCODES Where PHARMACYBRANCHCODES.[Branch No] =" & txtBranchNo.Text & ""
con.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:fyfyhguyg.mdb"
rec.Open strName, con
If rec.RecordCount <> 0 Then
rec.MoveFirst
txtBranchName.Text = rec.Fields("Branch Name")
End If

End Sub