base de datso con visual

[natu_06lumar]

buenas tardes lo que pasa es lo siguente tengo el siguiente formulario un datagriwiu que nos muestra una bd en acces y tengo texbox con los campos de la bd en los cuales se va a ingresar los registros y un botton que dice ingresar registro y el codigo es el siguiente asta el momento.
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
[COLOR="red"] If TextBox1.TextLength = 0 Then
paciente()
Else
End If
MsgBox("cedula invalidad")
End Sub


End Class


me gustaria saber como se condiciona un campo numerico para que no escgriban letras y en los campos donde va texto no escriban numeros y que al dar clip en el boton ingresar muestre si la validacion esta bien y si si esta bien me los registre en la bd