Conexión A Base De Datos Mediante Visual Basic 6.0

MANTENIMIENTO DE CLIENTES

CREAR LOS SIGUIENTE EN VISUAL BASIC 6.0

Crear la siguiente Base de datos en Access formato 2000-2003, para realizar la conexión desde Visual Basic6.0

LÍNEAS DEPROGRAMACIÓN EN VISUAL BASIC 6.0

Private Sub cmdBuscar_Click()
nombrecliente = InputBox("Ingrese el Nombre del cliente a Buscar", "Busqueda", "Ingrese el Nombre")
If nombrecliente = "" ThenMsgBox "No ha ingresado ningún texto", vbInformation, "aviso"
Exit Sub
Else
With rscliente
.Requery
.Find "nombres='" & Trim(nombrecliente) & "'"
If .EOFThen
MsgBox "No se encontro ningún registro", vbInformation, "Aviso"
Exit Sub
Else
txtnombre.Text = !nombres
txtapellido.Text = !apellidostxtdireccion.Text = !direccion
txttelefono.Text = !telefono
txtmail.Text = !email
Dim vari
vari = !distrito
Dim distrito1With rsdistrito
.Requery
.Find "codigo='" & Trim(vari) & "'"
distrito1 = !distrito
End With
dtcdistritos= distrito1
End If
End With
End If
End Sub

Private Sub cmdCancelar_Click()
habilitarbotones True, False
habilitarcajas True
limpiar
End Sub

PrivateSub cmdEliminar_Click()
If codigocliente = 0 Then
MsgBox "Escoja un registro valido", vbInformation, "Aviso"
Exit Sub
Else
With rscliente
.Find "codigo='" &Trim(codigocliente) & "'"
If .EOF Then
MsgBox "Registro no encontrado", vbInformation, "Aviso"
Exit Sub
Else
If MsgBox("Desea eliminar el registro "& gridclientes.Columns(1).Text, vbInformation + vbYesNo) = vbYes Then
.Delete
.Requery
codigocliente = 0
End If
End If
End With
End...