Conexao Com Banco De Dados

[daniel.itow]

Oi pessoal, td na trankilidade ? Estou querendo me conctar a um banco de dados em SQL mas não estou conseguindo de jeito nenhum, Estou utilizando a linha de comando abaixo:

No form1 eu coloquei:

Private Sub Command1_Click()

Text1.Text = TESTANDO

End Sub

E no Modulo eu coloquei:

Public Type TESTANDO

Con As New ADODB.Connection

RSteste As New ADODB.Recordset

End Type

Public Type OPTTESTANDO

Data As TESTANDO

End Type

Public OPTTESTANDO As TESTANDO

Sub MAIN()

With TESTANDO

.Data.Con.CursorLocation = adUseClient

.Data.Con.Open "DRIVER={SQL Server};SERVER=servidorbd;DATABASE=teste;Trusted_Connection=Yes;"

.Data.RSteste.Open "SELECT * FROM test"

Form1.Show

End With

End Sub

---

Se alguém puder me dar uma ajuda em como me conectar com o banco, por favor, me ajude. Obrigado

Obs.: No form1 existe uma textbox nomeada Text1 e um botao

B)

[Guest - PiGmEu -]

a string de conexao com o SQL Server é a seguinte:

cnn.ConnectionString = "Provider=SQLOLEDB; Data Source = \Servidor\instancia; Initial Catalog=banco_de_dados; User ID=Usuario; Password=senha"

cnn.open

Abracos

[daniel.itow]

valeu brother..... abraço