ขอความช่วยเหลือ เทพ vb 2008 หน่อยคับ

จะดักจับ หมายเลขทะเบียนรถคับ
คือ ไม่ให้กรอกเป้นตัวเลขทั้งหมดคับ
ทำไงคับ


นี้คือโค๊ตคับที่ผมเขียนคับ อยากได้โค๊ตส่วนที่ดักจับตัวเลขทั้งหมดคับ

Private Sub bntCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntCheck.Click
Dim licen As String = txtLicen.Text
Dim objCmd As New SqlCommand
Dim strConn As String
Dim objReader As SqlDataReader
'Dim RegPatterm As String = "^[ท|ม]{1}+\w{1}+\s+\d{1,}"

strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=TblUser;Integrated Security=True"

Dim Conn As New SqlConnection(strConn)
Conn.Open()

objCmd.CommandType = CommandType.Text
objCmd.CommandText = "select * from [dbo].[Car] where license='" & licen & "'"
objCmd.Connection = Conn
objCmd.CommandTimeout = 0

objReader = objCmd.ExecuteReader

If licen = "" Then
MessageBox.Show("กรุณากรอก หมายเลขทะเบียนรถ")

ElseIf objReader.HasRows Then
MessageBox.Show("หมายเลขทะเบียนนี้ไม่สามารถใช้ได้")
Else
MessageBox.Show("หมายเลขทะเบียนนี้สามารถใช้ได้")
btnSave.Visible = True
End If

Conn.Close()

End Sub