Run Time Error '-2147467259(80004005)

[dongodu]

Private Sub lap()

Dim cnuser As New ADODB.connection
Dim rsupdate As New ADODB.Recordset
Dim reply As String


Call connection(cnuser, "\\mika\medrar\Medrar.mdb", "endromida")
Call Recordset(rsupdate, cnuser, "SELECT upd,LanNum FROM Reser where LanNum = '" & txtSaLan.Text & "'")

reply = rsupdate.Fields!upd

With rsupdate
If Not .EOF Or .BOF Then
.Fields!upd = txttext2.Text
.Update
End If
End With


Set cnuser = Nothing
Set rsupdate = Nothing