'Open connection
        ConnCust = New ADODB.Connection
        Cust_String = "Provider=Microsoft.JET.OLEDB.4.0;data source=\\AAA\ABC.mdb"
        ConnCust.Open(Cust_String)
        'Open recordset from Customer List
        RstCust = New ADODB.Recordset
        Last_SQL = "SELECT * FROM CustomerList WHERE CustomerID <= " & lblCustID.Text & " ORDER BY CustomerID"
        RstCust = ConnCust.Execute(Last_SQL)
 
With RstCust
 
if RstCust.RecordCount = 0 then
.Close()
ConnCust.Close()
'load first record
Call Load_First_Saved_Record()
Exit Sub
end if
 
If RstCust("CustomerID").Value = lblCustID.Text Then
if not .BOF            
.Movelast()
.MovePrevious()
else
MsgBox("Begining of record list!", vbExclamation, "Customer Entry Record")
End If
End If
Call Retrieve_Data()
end if
end with

'define this variable where connection and recordset variables are defined
dim cmdCommand As New ADODB.Command
 
 
 
'---------------------------------------------------------------
ConnCust = New ADODB.Connection
 
ConnCust.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\AAA\ABC.mdb;Mode=Read|Write"
ConnCust.CursorLocation = ADODB.CursorLocationEnum.adUseClient
ConnCust.Open()
 
 
With cmdCommand
            .let_ActiveConnection(conConnectionVh)
            .CommandText = "SELECT * FROM CustomerList ;" 
            .CommandType = ADODB.CommandTypeEnum.adCmdText
End With
 
With RstCust
            .CursorType = ADODB.CursorTypeEnum.adOpenStatic
            .CursorLocation = ADODB.CursorLocationEnum.adUseClient
            .LockType = ADODB.LockTypeEnum.adLockOptimistic
            .Open(cmdCommand)
End With