'Antes de tudo não pode esquecer de referenciar o ADO. eu Uso o 2.8. Espero que ajude. Abraços
'=================================================================
'Ai vai um exemplo. Em uma Classe chamada "cls_DBConnection" crie este esta rotina
'=================================================================
Public Function Conexao() As Integer
Dim l_str_PWD As String
On Error GoTo Erro
Conexao = True
g_str_DataServer = "Hostname" ou "IP"
g_str_DataBase = "NomedoBanco"
l_str_PWD = "SenhadoBanco"
g_str_UserName = "UsuariodoBanco"
g_dtb_Conex.ConnectionString = "Driver={Sql Server};Server=" & g_str_DataServer & ";" _
& "Uid=" & g_str_UserName & ";Pwd=" & l_str_PWD & ";DataBase=" & g_str_DataBase & ""
g_dtb_Conex.ConnectionTimeout = 0
g_dtb_Conex.Open
Exit Function
Erro:
Conexao = False
End Function
'========================================================================
'em um modulo chamado "mdl_Variaveis". Cria uma instancia desta rotina e suas variaveis globais
'========================================================================
Global f_cla_tools As New cls_DBConnection
Global g_dtb_Conex As New ADODB.Connection
Global g_str_DataServer as string
Global g_str_DataBase as string
Global g_str_UserName as string
'========================================================================
'em um botão cmd chame exta conexão.
'========================================================================
Private Sub Command1_Click()
If Not f_cla_tools.Conexao Then
MsgBox "Conexao Inválida", vbCritical, "Conexao Inválida"
else
MsgBox "Conexao Ativa", vbCritical, "Conexao Ativa"
End If
End Sub
