Contoh pemanngilan Connection saat Save

Public Sub fSave()
If rsTrans.State = 1 Then rsTrans.Close
rsTrans.Open "select * From Trans_R where EmpNo='XXX'", DB, adOpenKeyset, adLockOptimistic
rsTrans.AddNew
rsTrans!EmpNo = Text(0)
rsTrans!Fep_No = "01"
rsTrans!Dev_Type = "R"
rsTrans!Dev_Id = "0009"
If rsCard.State = 1 Then rsCard.Close
rsCard.Open "Select Card_Number From vCardGate Where EMPID='" & Trim(Text(0)) & "'", DB, adOpenKeyset, adLockOptimistic
If rsCard.RecordCount > 0 Then
rsTrans!Tr_Data = rsCard!Card_Number
End If
rsTrans!Tr_Date = Text(2)
rsTrans!Company = Combo1
rsTrans!Tr_User = USRID
If Option1(0).Value = True Then
rsTrans!Tr_Time = Text(3)
rsTrans!Tr_Code = "0"
rsTrans!Tr_Priority = "00"
rsTrans.Update
Else
rsTrans!Tr_Time = Text(3)
rsTrans!Tr_Code = "9"
rsTrans!Tr_Priority = "00"
rsTrans.Update
End If
For i = 0 To 3
Text(i) = ""
Next
CmdEnabled Me, "2"
Text(0).SetFocus
End Sub