VB输入字符的控制判断，很短

在KeyPress里面加入：

If  (KeyAscii  <   48   Or  KeyAscii  >   57 )  And  (KeyAscii >   88   Or  KeyAscii <   65 )  _ 
And  (KeyAscii  <   97   Or  KeyAscii  >   120 )  And  KeyAscii  <>   8  _
And  KeyAscii  <>   Asc ( " _ " )  And  KeyAscii  <>   Asc ( " . " )  And  KeyAscii  <>   Asc ( " - " )  Then
        KeyAscii  =   0
     End   If

就可以了。上面的这个可以输入大写字母、小写字母、数字，符号有下划线，连接线，小圆点。

另外呢，犯了一个很笨的错误。

SQLSERVER的连接字符串：

" Provider=SQLOLEDB.1;Persist Security Info=False;UID=用户名;PWD=密码;Initial Catalog=数据库名称;Data Source=数据库服务器IP“

竟然把SQLSERVER服务器IP和数据库名称记混了。。。唉。。发现了，可喜可贺～