من چند وقته که VB کار نکردم ولی این رو پیدا کردم : Dim conn As New ADODB.Connection
Dim rsapprove As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rsapprove = New ADODB.Recordset
conn.Open sqlConnStr
rsapprove.Open "Finalvouch", conn, adOpenKeyset, adLockOptimistic, adCmdTable
Dim Str_query1 As String
Dim Status As String
If optApprove.Value = True Then
Status = "Approved"
' On Error GoTo myerror
With rsapprove
.AddNew
.Fields("vouchno") = txtVoucherNo
.Fields("PAYEE") = txtPayee
.Fields("BANK") = cboBank
.Fields("checkno") = txtCheckNo
.Fields("TDATE") = txtDate
.Fields("TOTAMT") = txtTotAmount
.Fields("prepby") = txtPREPBY
.Fields("notedby") = txtNOTEDBY
.Fields("apprby") = txtAPPRVBY
'.Fields("DateRecvd") = Me.txtDateRecvd
.Fields("recvdby") = txtRECVDBY
.Fields("PARTICULARS") = Me.txtParticulars.Text
.Fields("MADEIN") = cboIssuedAt
.Fields("Status") = Status
if rsapprove.fields("status") = "Approved" then
lock rsappove
end if
'Do While Not rsapprove.EOF
'If txtVoucherNo.Text <> rsapprove.Fields("vouchno") Then
.Update
'Else
' MsgBox "This check has already undergone Approval", vbInformation, "Check Voucher"
' Unload Me
' Exit Sub
'End If
'Loop
End With
MsgBox "Check Approved and Entries Updated", vbInformation, "Vouchers"
cmdSave.Enabled = False