base de datos

[natu_06lumar]

buenas noches lo que pasa es que 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 Text As Object
For Each Text In Me.Controls
If TypeOf Text Is TextBox Then

End If
If Text.Text = "" Then
MsgBox("hay campos: " & Text.Tag & "vacios")
Exit Sub
End If
Next Text
End Sub
el cual se encarga de mostrarnos la tabla de una base de datos y tiene un texbox por cada dato y un botton que se llama ingresar
necectio saber como valido que en el campo cedula si se allan escrito numeros y en el campo nombre solo letras que no me permita numero lo mismo en en de cedula no me permita texto.