如何让VB不识别一些特殊字符啊？

Question

我想在文本框中输入一些客户名 然后让系统自动建立一个以该客户名为表名的表，
代码如下：
sql = "create table  " + Trim(Text2.Text) + "(全名 varchar(50),种类 varchar(50),生产商 varchar(50),单位 varchar(50),正常价格  money,含税价格  money,备注 varchar(250))"
                  cmd.CommandText = sql
                  cmd.Execute
用这段代码普通的客户名都可以 但是遇到用户名中有特殊字符的就会报错，他会识别“&”等特殊字符，怎么才能不让他识别呢？     小弟刚开始做软件，谢兄弟们帮忙了！   在线等！

Answer 1

把特殊字符换成全角的中文字符.如"换成“，&换成＆

Answer 2

呵呵  谢谢yimain(一头雾水)啊    这样可以了 但是我记得还有个什么东西能让系统不认后面的特殊字符的有人能提示下不？

Answer 3

写了一个函数：
Public Function CheckText(KeyIn As Integer, InValidateString As String, Editable As Boolean) As Integer
   On Error GoTo myerr
       Dim ValidateList As String
    Dim KeyOut As Integer
    If KeyIn < 0 Then
        CheckText = 0
        Beep
        Exit Function
    End If
    If Editable = True Then
         ValidateList = UCase(InValidateString) & Chr(8)
    Else
         ValidateList = UCase(InValidateString)
    End If
    If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) = 0 Then
        KeyOut = KeyIn
    Else
        KeyOut = 0
        Beep
    End If
    CheckText = KeyOut
    Exit Function
myerr:
  End Function
用法:
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = CheckText(KeyAscii, "&'#", True)
End Sub

Answer 4

zq972(热烈庆祝)－>(手机单向收费，吼吼~~~~) ( ) 通用性真强，不错!!