bd en visual

[natu_06lumar]

buenas noches tengo el siguiente codigo de un formulario
Public Class FrmDATOSDELPACIENTE
Private mdatosdelpaciente As New DATOSDELPACIENTE
Private mhistorialdelpaciente As New Historialdelpaciente

Private Sub FrmDATOSDELPACIENTE_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PACIENTES.DataSource = mdatosdelpaciente.transferirpacientes
End Sub
Private Sub accesoahistorial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles accesoahistorial.Click
frmhistorialdelpaciente.ShowDialog()
End Sub



Private Sub paciente()
Dim pacientes As New DATOSDELPACIENTE
pacientes.Cedula = TextBox1.Text
pacientes.nombre = TextBox2.Text
pacientes.Direccion = TextBox3.Text
pacientes.Telefono = TextBox4.Text
pacientes.Ciudad = TextBox5.Text
pacientes.Barrio = TextBox6.Text
pacientes.Sexo = TextBox7.Text
pacientes.Estrato = TextBox8.Text
pacientes.Sisben = TextBox9.Text
pacientes.Eps = TextBox10.Text
pacientes.insertarPaciente()

End Sub



Private Sub btnregistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnregistrar.Click
Dim Caracter As Char
Dim Text As Object
For Each Text In Me.Controls
If TypeOf Text Is TextBox Then
If Text.Text = "" Then
MsgBox("Hay que rellenar todos lo campos.")
Exit Sub
End If
End If
Next text

For i As Integer = 1 To Len(TextBox1.Text)
Caracter = Mid(TextBox1.Text, i, 1)
If Char.IsLetter(Caracter) Then
MsgBox("El campo cedula sólo puede contener números")
Exit Sub
End If
Next i
For i As Integer = 1 To Len(TextBox2.Text)
Caracter = Mid(TextBox2.Text, i, 1)
If Char.IsNumber(Caracter) Then
MsgBox("El campo nombre NO puede contener números")
Exit Sub
End If
Next i
End Sub
necito saber como hago para que por medio del el boton anterior registre datos en una base de datos access 2003.