Como conectar phpMyadmin y Visual

[pepino]

tengo mi conexion:

Código: (VB) [Seleccionar]

Public cn As Connection
Public rs As Recordset
Const strServidor = "localhost"
Const strBaseDatos = "medical"
Const strPassword = "1234"
Const strUsuario = "root"

Código: (VB) [Seleccionar]

Public Sub Conectar()
Set cn = New Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & strServidor & _
"; DATABASE=" & strBaseDatos & _
"; User=" & strUsuario & _
"; Password=" & strPassword & "; OPTION=3"
Set rs = New Recordset
cn.Open
End Sub
tengo la sentencia de ver los datos en datagrip todo bien hasta alli pero no puedo agregar por que me marca error en el boton agregar

Código: (VB) [Seleccionar]

'BOTON DE AGREGAR DATOS
call Conectar
cn.Execute "INSERT INTO pacientes " & "(idPaciente,Nombre,Edad,Sangre,URegla,FParto,Partos,Cesareas,HClinica) VALUES(" & _
                                Me.txtIdPaciente.Text & ",'" & _
                                Me.txtNombre.Text & "','" & _
                                Me.txtFecha.TabIndex & "'," & _
                                Me.txtEdad.Text & ",'" & _
                                Me.txtSangre.Text & "','" & _
                                Me.txtURegla.Text & "','" & _
                                Me.txtFParto.Text & "'," & _
                                Me.txtPartos.Text & "," & _
                                Me.txtCesareas.Text & ",'" & _
                                Me.txtHClinica.Text & "')"
    rs.Requery 1
    DoEvents
    Unload Me
    Set Frm_Paciente = Nothing




[aedEric]

pepino que error te marca,    a simple vista esta mal tu codigo en esta parte falta el campo fecha

Código: (VB) [Seleccionar]

call Conectar
cn.Execute "INSERT INTO pacientes " & "(idPaciente,Nombre,Edad,Sangre,URegla,FParto,Partos,Cesareas,HClinica) VALUES(" & _
                                Me.txtIdPaciente.Text & ",'" & _
                                Me.txtNombre.Text & "','" & _
                                Me.txtFecha.TabIndex & "'," & _
                                Me.txtEdad.Text & ",'" & _
                                Me.txtSangre.Text & "','" & _
                                Me.txtURegla.Text & "','" & _
                                Me.txtFParto.Text & "'," & _
                                Me.txtPartos.Text & "," & _
                                Me.txtCesareas.Text & ",'" & _
                                Me.txtHClinica.Text & "')"
y este campo

Me.txtFecha.TabIndex

[pepino]

soy un pendejo gracias 
el codigo lo saque de otra parte para que sirven estas lineas?

Código: (VB) [Seleccionar]

rs.Requery 1
    DoEvents
    Set Frm_Paciente = Nothingme marca error en rs.Requery dice que no hay una conexion.

[aedEric]

rs.requery  :actualizar todo el contenido de un objeto Recordset

rs.Requery 1

analiza bien tu codigo para que te descuenta por que te marca error