[vb] Ado Instance

Option Explicit
Enum EditState
Editing
NotEditing
End Enum

Private mrstCurrent As New ADODB.Recordset

Private Sub Form_Load()

Dim pconMagnet As New ADODB.Connection
Dim pcmdMagnet As New ADODB.Command

pconMagnet.Mode = adModeShareDenyNone
pconMagnet.CursorLocation = adUseClient
pconMagnet.Provider = "Microsoft.Jet.OLEDB.3.51"
pconMagnet.ConnectionString = "Persist Security Info=False;Data Source=" & App.Path & "\magnet.mdb"
pconMagnet.Open


Set pcmdMagnet.ActiveConnection = pconMagnet
pcmdMagnet.CommandType = adCmdTable
pcmdMagnet.CommandText = "tblCustomers"

mrstCurrent.LockType = adLockOptimistic
mrstCurrent.CursorLocation = adUseClient
mrstCurrent.CursorType = adOpenKeyset
mrstCurrent.Open pcmdMagnet

Call EditState(NotEditing)
Call LoadCurrentRecord
End Sub

Private Sub EditState(State As EditState)
Dim ctlCurrent As Control

If State = Editing Then

' Examine each control on the form
For Each ctlCurrent In Controls
' Lock only the text boxes.
If TypeOf ctlCurrent Is TextBox Then
ctlCurrent.Locked = False
End If
Next

mnuEdit.Enabled = False
mnuAdd.Enabled = False
mnuUpdate.Enabled = True
mnuAbandon.Enabled = True
mnuDelete.Enabled = False
mnuFind.Enabled = False
Else

For Each ctlCurrent In Controls
If TypeOf ctlCurrent Is TextBox Then
ctlCurrent.Locked = True
End If
Next

mnuEdit.Enabled = True
mnuAdd.Enabled = True
mnuUpdate.Enabled = False
mnuAbandon.Enabled = False
mnuDelete.Enabled = True
mnuFind.Enabled = True
End If

End Sub

Private Sub LoadCurrentRecord()
txtCustomerID = mrstCurrent("fldCustomerID")
Me.txtAddress = mrstCurrent("fldAddress")
Me.txtCity = mrstCurrent("fldCity")
Me.txtname = mrstCurrent("fldName")
Me.txtState = mrstCurrent("fldState")
Me.txtZipCode = mrstCurrent("fldZipCode")
Me.txtDateAdded = mrstCurrent("fldDateAdded")
Me.txtDateModified = mrstCurrent("fldDateModified")
Me.txtEstSalesAmount = mrstCurrent("fldEstSalesAmount")

'txtOrderProfit = txtOrderSales - txtOrderCost
lblCurrentRecord = mrstCurrent.AbsolutePosition
lblRecordCount = mrstCurrent.RecordCount
End Sub