Public Function Conectar() As Boolean
Try
' Abro la Conexion a la DB
g_oDB.ConnectionString = "Server=" & Trim(sServer) & _
";DataBase=" & Trim(sDb) & _
";Integrated Security=SSPI"
g_oDB.Open()
Catch ex As Exception
g_oCom.Msg_Err()
Return False
End Try
Return True
End Function
donde sServer es la pc donde esta el sql server, sdb es el nombre de la db y g_oDB es una sqlconnection
