trabajando con botones de navegacion (control de usuario Nav)

Dim dbConex As New Connection
Dim rsConex As New Recordset
Dim cmdConex As New Command
Dim Str1 As Variant
Dim Sw As Boolean
Dim CustomerID As String
Dim CompanyName As String
Dim ContactName As String
Dim ContactTitle As String
Dim Address As String
Dim Country As String
Dim Region As String
Dim City As String
Dim PostalCode As String
Dim Phone As String
Dim Fax As String

Private Sub Form_Load()
dbConex.CursorLocation = adUseClient
dbConex.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=(Local);"
rsConex.Open "Select * From Customers", dbConex, adOpenStatic, adLockBatchOptimistic
Dim CteXTO As TextBox
For Each CteXTO In Me.TxtDatos
Set CteXTO.DataSource = rsConex
Next
'***********************************
Set BotonesNav1.ADORecordset = rsConex
End Sub

Private Sub CmdNuevo_Click()
If CmdNuevo.Caption = "&Nuevo" Then
Sw = True
For x = 0 To TxtDatos.Count - 1
TxtDatos(x).Text = ""
TxtDatos(x).Locked = False
Next x
TxtDatos(0).SetFocus
BotonesNav1.Enabled = False
CmdEliminar.Enabled = False
CmdSalir.Enabled = False
CmdNuevo.Caption = "&Grabar"
CmdEditar.Caption = "&Cancelar"
Else
If Sw Then
InsertarDatos
Else
ActualizarDatos
End If
For x = 0 To TxtDatos.Count - 1
TxtDatos(x).Locked = True
Next x
BotonesNav1.Enabled = True
CmdEliminar.Enabled = True
CmdSalir.Enabled = True
CmdNuevo.Caption = "&Nuevo"
CmdEditar.Caption = "&Editar"
End If
End Sub

Private Sub CmdEditar_Click()
If CmdEditar.Caption = "&Editar" Then
Sw = False
For x = 0 To TxtDatos.Count - 1
TxtDatos(x).Locked = False
Next x
TxtDatos(0).Locked = True
TxtDatos(1).SetFocus
BotonesNav1.Enabled = False
Str1 = rsConex.Bookmark
CmdEliminar.Enabled = False
CmdSalir.Enabled = False
CmdNuevo.Caption = "&Grabar"
CmdEditar.Caption = "&Cancelar"
Else
If Sw Then
rsConex.Requery
Else
rsConex.Requery
rsConex.Bookmark = Str1
End If
BotonesNav1.Enabled = True
CmdEliminar.Enabled = True
CmdSalir.Enabled = True
CmdNuevo.Caption = "&Nuevo"
CmdEditar.Caption = "&Editar"
End If
End Sub

Private Sub CmdEliminar_Click()
If MsgBox("Seguro de eliminar el codigo :" & Chr(10) & rsConex("CustomerID"), vbOKCancel, "Confirma") <> vbCancel Then
vARIABLEs
With cmdConex
Set .ActiveConnection = dbConex
.CommandText = "Delete From Customers Where CustomerId='" + CustomerID + "'"
End With
cmdConex.Execute
rsConex.Requery
End If
End Sub

Private Sub CmdSalir_Click()
End
End Sub

Sub vARIABLEs()
CustomerID = TxtDatos(0).Text
CompanyName = TxtDatos(1).Text
ContactName = TxtDatos(2).Text
ContactTitle = TxtDatos(3).Text
Address = TxtDatos(4).Text
Country = TxtDatos(5).Text
Region = TxtDatos(6).Text
City = TxtDatos(7).Text
PostalCode = TxtDatos(8).Text
Phone = TxtDatos(9).Text
Fax = TxtDatos(10).Text
End Sub

Sub InsertarDatos()
vARIABLEs
'******** UTILIZANDO COMMAND *************
With cmdConex
Set .ActiveConnection = dbConex
.CommandText = "Insert Into Customers(CustomerID,CompanyName,ContactName,ContactTitle,Address,Country,Region,City,PostalCode,Phone,Fax)" + _
"Values('" + CustomerID + "','" + CompanyName + "','" + ContactName + "','" + ContactTitle + "','" + Address + "','" + Country + "','" + Region + "','" + City + "','" + PostalCode + "','" + Phone + "','" + Fax + "')"
End With
cmdConex.Execute
End Sub

Sub ActualizarDatos()
vARIABLEs
'******** UTILIZANDO COMMAND *************
With cmdConex
Set .ActiveConnection = dbConex
.CommandText = "Update Customers Set CustomerId='" + CustomerID + "',CompanyName='" + CompanyName + "',ContactName='" + ContactName + "',ContactTitle='" + ContactTitle + "',Address='" + Address + "',Country='" + Country + "',Region='" + Region + "',City='" + City + "',PostalCode='" + PostalCode + "',Phone='" + Phone + "',Fax='" + Fax + "' Where CustomerID='" + CustomerID + "'"
End With
cmdConex.Execute
End Sub