Visual Basic - No le encuentro la vuelta

Hola a todos: Hace unos meses empecé a programar en Visual Basic 6.0 La cosa es que estoy programando una agenda usando una base de datos en Acces.
El problema es que cuando agrego algo se me desbarata todo lo demas. Qiosiera saber en que estoy fallando. Acá dejo el código
Private Sub acerca_Click()
Form3.Show
End Sub
Private Sub Command1_Click()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text17.Enabled = False
Text16.Enabled = False
Data1.Recordset.MoveFirst
If Data1.Recordset.BOF = True Then
Data1.Recordset.MoveFirst
ToolbarButton2.Enabled = True
ToolbarButton3.Enabled = True
ToolbarButton4.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text17.Enabled = False
Text16.Enabled = False
If Data1.Recordset.BOF = True Then
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
ToolbarButton2.Enabled = True
ToolbarButton3.Enabled = True
ToolbarButton4.Enabled = True
Data1.Recordset.MoveNext
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Command3_Click()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text17.Enabled = False
Text16.Enabled = False
If Data1.Recordset.BOF = True Then
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
ToolbarButton2.Enabled = True
ToolbarButton3.Enabled = True
ToolbarButton4.Enabled = True
Data1.Recordset.MovePrevious
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Command4_Click()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text17.Enabled = False
Text16.Enabled = False
If Data1.Recordset.EOF = True Then
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
ToolbarButton2.Enabled = True
ToolbarButton3.Enabled = True
ToolbarButton4.Enabled = True
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
ToolbarButton2.Enabled = False
ToolbarButton3.Enabled = False
ToolbarButton4.Enabled = False
End Sub

Private Sub ToolbarButton1_Click()
If Data1.Recordset.BOF = True Then
Data1.Recordset.AddNew
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
ToolbarButton2.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text17.Enabled = True
Text16.Enabled = True
End If
End Sub

Private Sub ToolbarButton2_Click()
If Text1.Text = "" Then
op = MsgBox("Debe colocar un nombre", vbExclamation, "Error al cargar datos") = vbOK
Else
If Text3.Text = "" Then
op = MsgBox("Debe colocar un apellido", vbExclamation, "Error al cargar datos") = vbOK
Else
If Text4.Text = "" Then
op = MsgBox("Debe colocar el nombre de una calle", vbExclamation, "Error al cargar datos") = vbOK
Else
If Text5.Text = "" Then
op = MsgBox("Debe colocar un número", vbExclamation, "Error al cargar datos") = vbOK
Else
If Text6.Text = "" Then
op = MsgBox("Debe colocar una localidad", vbExclamation, "Error al cargar datos") = vbOK
Else
If Text10.Text = "" Then
op = MsgBox("Debe colocar un número de teléfono", vbExclamation, "Error al cargar datos") = vbOK
Else
If Text13.Text = "" Then
op = MsgBox("Debe colocar una dirección de correo electrónico", vbExclamation, "Error al cargar datos") = vbOK
Else
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text17.Enabled = False
Text16.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub ToolbarButton3_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text17.Enabled = True
Text16.Enabled = True
End Sub

Private Sub ToolbarButton4_Click()
op = MsgBox("¿Está seguro?", vbYesNo, "Eliminar")
If op = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text17.Enabled = False
Text16.Enabled = False
End If
End Sub

Private Sub ToolbarButton5_Click()
Form3.Show
End Sub

Private Sub ToolbarButton6_Click()
End
End Sub



f Data1.Recordset.EOF And Data1.Recordset.BOF Then
mensaje=(msgbox("La Tabla esta vacia"), vbcritical+vbokonly,("No existen Registro"))
command1.enabled=false
'Y asi sucesivamente los botones que desea deshabilitar, deberian ser guardar, eliminar, modificar,cancelar,buscar e imprimir.
end if

me aparece que la variable width no esta definida

Lo que quiero saber ess donde está el erroe, o los errores, y como arreglarlo. Tengan en cuenta que soy bastante novato en esto
Saludos

No indicas que es lo que estas tratando de hacer, si lo que deseas es una agenda puedes encontrar varias en la seccion "Codigo fuente"