Ola a todos.

 

Peço a vcs uma orientação de como realizar conexão com BD usando Ado. Utilizando como bd o Acess 2000. JA tentei de diversas maneiras a conexão inclusive utilizando exemplos de tutoriais q existes neste forum mas sem sucesso. Se puderem me ajduar dando um exemplo prático, ficaria muito grato.

Coloque a referência Microsoft Activex Data Objects 2.x

 

Dim db as ADODB.Connection

Dim rs as ADODB.Recordset

 

set db = new ADODB.Connection

db.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CAMINHODABASE;Persist Security Info=False"

db.open

 

set rs = new ADODB.Recordset

dim sql as string

sql = "Select * from tabela"

rs.open sql,db

 

rs.close