急~~ 跪求解 数据库连接问题~

Question

代码：
Set Cn = New ADODB.Connection
Cn.CursorLocation = adUseClient
On Error GoTo errHand
Cn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=" & UserName & ";Initial Catalog=" & DBName & ";Data Source=" & ServerName & ";pwd=" & Trim(PassWord)errHand: 
       MsgBox ("数据库连接有误!" & vbCrLf & "请重新配置....")不用错误处理完全能运行 但是为什么 用上错误处理却总是捕获到错误 ？？？？？ 还有 定义 类型：
Type DataInfo
    ServerName As String * 20
    DBName As String * 30
    UserName As String * 20
    PassWord As String * 20
End Type然后取出数据的时候 用上 Trim() 函数了  但是  它们的长度还是在类型中定义的 
如何能把 把后面的空格给切了？？？？？

Answer 1

errHand: 
       MsgBox ("数据库连接有误!" & vbCrLf & "请重新配置....")前面加上Exit Sub或Exit Function

Answer 2

Type DataInfo
    ServerName As String * 20
    DBName As String * 30
    UserName As String * 20
    PassWord As String * 20
End Type
Private Test As DataInfoDim str As String
str = Trim(Test.ServerName)str为没有空格的
感觉你上面根本没有必要定义时设定长度

Answer 3

str = Trim(Test.ServerName)  这样取出来真的不能做到  我试过了 还有 在 类型 里面 字符 一定要加 长度的 啊

Answer 4

yangao(QQ宝典)  说的 也不行啊 
它捕获到错误 就跳到 下面了  不执行 Exit sub 了