类据连接有关问题

类据连接问题
Global   G_AdoCon   As   New   ADODB.Connection
Global   strConn   As   String
Public   Function   ServerConnect()   As   Boolean

        ServerConnect   =   False
        G_AdoCon.Errors.Clear
        strConn   =   "Provider=MSDASQL.1;Connect   Timeout=120;Persist   Security   Info=False;Data   Source=c86 "
        On   Error   Resume   Next
        G_AdoCon.ConnectionString   =   strConn
        G_AdoCon.Open
        If   G_AdoCon.Errors.Count   <>   0   Then
                ServerConnect   =   False
        Else
                ServerConnect   =   True
        End   If
End   Function

点击COMMAND   如果ServerConnect为TRUE   就打开一个FORM   但是点击第一次报错，第二次就可进入，请高手指点！

[解决办法]
Public Function ServerConnect() As Boolean

ServerConnect = False
G_AdoCon.Errors.Clear
strConn = "Provider=MSDASQL.1;Connect Timeout=120;Persist Security Info=False;Data Source=c86 "
On Error goto err
G_AdoCon.ConnectionString = strConn
G_AdoCon.Open
If G_AdoCon.state <> 1 Then
ServerConnect = False
Else
ServerConnect = True
End If
exit function
err:

End Function