Genesis

I had a connection to a sql, but it started presenting an error that says that a with variable or object is not established. i don't know if its of a reference or something i did the code is this. Public Function AbreCnx() As Boolean Dim NumErr As Double Dim strMsg As String Dim bolFinaliza As Boolean Dim rsT As Recordset AbreCnx = False If bolModo_Local Then Exit Function On Error Resume Next bolFinaliza = False bolDbNada = False AbreCnx = False Do Set CnxSql = New [login to view URL] [login to view URL] = "ODBC;DRIVER=SLQ SERVER;SERVER=" & strServidor & ";DABASE=[login to view URL];UID=GenesisCliente;PWD=userid;WSID=DESARROLLO 2;DSN=SQL2000" [login to view URL] If [login to view URL] = 0 Then NumErr = [login to view URL](0).NativeError If NumErr = 0 Then NumErr = [login to view URL] If NumErr <> 0 Then bolFinaliza = True bolDbNada = True Select Case NumErr Case 3044, 3024 [login to view URL] vbModal bolFinaliza = False Case 3031 End Select Else bolDbNada = False bolModo_Local = False End If ElseIf [login to view URL] = 1 Then bolFinaliza = False bolDbNada = False End If If bolFinaliza Then End Loop Until Not bolDbNada Or bolModo_Local If Not bolModo_Local Then AbreCnx = True End Function ## Deliverables Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Complete copyrights to all work purchased. ## Platform win 98 vb 5.0