VB使用Unicode编码，任何字符（包括半角的字母、数字、符号及全角的汉字、符号等）都是占用两个字节的。
站在用户的角度思考问题，与客户深入沟通，找到吉安网站设计与吉安网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站制作、成都网站建设、企业官网、英文网站、手机端网站、网站推广、域名申请、雅安服务器托管、企业邮箱。业务覆盖吉安地区。
Len()
函数返回字符串的字符个数（要注意，一个汉字也是算作一个字符的）
比如：
Len("百度baidu")的返回值为7
LenB()
函数返回字符串的占用字节数
比如：
LenB("百度baidu")的返回值为14
Public Function addEquipment() As Integer
Dim flag As Integer = 0
Dim strsql As String = ""
emditInfor = New DBHelper()'DBHelper()为数据库操作文件，包括数据库的连接插入更新查找等等
Try
strsql = "INSERT INTO Equipment ("
strsql = "AssetsID,"
...
strsql = "Size)"
strsql = "VALUES ("
strsql = "@AssetsID,"
...
strsql = "@Size)"
Dim cmd As SqlCommand = emditInfor.GetSqlStringCommond(strsql)
emditInfor.AddInParameter(cmd,"@AssetsID",SqlDbType.NVarChar, "1314")
...
emditInfor.AddInParameter(cmd, "@Size", SqlDbType.NVarChar, "5")
flag = emditInfor.ExecuteNonQuery(cmd)'返回受影响的行数
Catch ex As Exception
End Try
Return flag
End Function
像这样以参数的形式传值进去就可以了。
用字符串连接方式，并且拼接上单引号，你再试试
"select * from 学生信息 where 姓名=" “‘” TextBox1.Text “’”
可以根据字符的ASCII编码来进行判断，ASCII的编码值为：0-127，可以把0-127以外的编码的字符作为汉字。
Dim a As String
Dim S As Integer '保存汉字的开始位置
Dim E As Integer '保存汉字的结束位置
Dim i As Integer
Dim b As String
S = 0
E = 0
a = "4651让各位serg6546.,serg6546"
For i = 1 To Len(a)
If Asc(Mid(a, i, 1)) = 0 And Asc(Mid(a, i, 1)) = 127 Then
'这个是非汉字字符
If S = 0 Then
'还没有找到汉字的开始位置
'不做任何处理
Else
'已经找到汉字的开始位置
'那么现在这个是汉字的结束位置
'保存汉字的结束位置，然后结束循环
E = i - 1
Exit For
End If
Else
'这个是汉字字符
'如果还没有保存汉字开始位置，
'那么这个就是汉字的开始位置，保存下来
If S = 0 Then
S = i
End If
End If
Next i
'现在知道了S中是汉字的开始位置，
'E中是汉字的结束位置
'现在把原来的字符串分成三段，然后加上双引号
b = Left(a, S - 1) """" Mid(a, S, E - S + 1) """" Mid(a, E + 1)
'看看结果
MsgBox b
