数字录入验证 使用正则验证，同C# Dim reg1 As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex（"^（？：\+|-）？\d+（？：\.\d+）？$"）
If Not reg1.IsMatch（TextBox1.Text） Then MsgBox（"fase"）：TextBox1.Focus（）
使用VB.Net中函数If Not IsNumeric（TextBox1.Text） Then MsgBox（"fase"）
TextBox1.Focus（）
End If
汉字录入验证
办法一：使用正则表达式
If New System.Text.RegularExpressions.Regex（"[\u4e00-\u9fa5]"）。Match（txt.Text）。Success Then ‘输入框中包含有汉字，则采用模糊匹配Cols = Cols.Replace（"，"， " like ’%" & txt.Text & "%‘ or "）
Cols &= " like ‘%" & txt.Text & "%’ " Else ‘输入框中不包含有汉字，则采用精确匹配Cols = Cols.Replace（"，"， " = ’" & txt.Text & "‘ or "）
Cols &= " = ‘" & txt.Text & "’ " End If
方法二，使用长度判断
If System.Text.Encoding.Default.GetBytes（txt.Text）。Length = txt.Text.Length Then ‘有汉字
End If
