Dim conMember As ADODB.Connection
Dim rsMember As ADODB.Recordset

Private Sub cmdAdd_Click()
If cmdAdd.Caption = "&Add" Then
  adoMember.Recordset.AddNew
  txtMemberID.SetFocus
  cmdSave.Enabled = True
  cmdAdd.Caption = "&Cancel"
  DisableButton
Else
  adoMember.Recordset.CancelUpdate
  EnableButton
  cmdSave.Enabled = False
  cmdAdd.Caption = "&Add"
End If
End Sub

Private Sub Form_Load()
Set conMember = New ADODB.Connection
Set rsMember = New ADODB.Recordset

conMember.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "persist Security Info=false; Data Source =" & App.Path & "\Membership.mdb"
      
conMember.Open
With rsMember
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
    .Open "Member", conMember, , , adCmdTable
End With
Call LoadMemberRecord
End Sub