Como fazer? - VBWEB

Antonio, sugiro vc criar um módulo de classe chamado BD, conforme código abaixo e outro chamado sql. Fazendo isso, basta vc criar um objeto do tipo sql para acessar o banco, usar os métodos setrs (cria um recordset com os dados que vc desejar) para executar o comando sql e o getrs para retornar o recordset com os dados que vc quer, veja um exemplo abaixo.
0 exemplo abaixo.

'Classe BD

Option Explicit
Private aRs As ADODB.Recordset
Private aConexao As ADODB.Connection
Private aResultadoExecucao As Boolean

Private Sub Class_Initialize()
  'método construtor da classe
  Set aRs = New ADODB.Recordset
  Set aConexao = New ADODB.Connection
End Sub

Private Sub Class_Terminate()
  'método destrutor da classe
  Set aRs = Nothing
  Set aConexao = Nothing
End Sub

Public Sub inicializaConexao()
  'método para abrir o banco
  aConexao.Provider = "Microsoft.Jet.OLEDB.4.0"
  aConexao.ConnectionString = "Data Source = "insira o endereço do banco acess"
  aConexao.Open
End Sub

Public Sub encerraConexao()
  'método para fechar o banco
  aConexao.Close
End Sub

Public Function getResultadoExecucao() As Boolean
  getResultadoExecucao = aResultadoExecucao
End Function

Public Sub setRs(comando As String)
  On Error GoTo Err_setRs
  Set aRs = aConexao.Execute(comando)
  aResultadoExecucao = True
Exit_setRs:
  Exit Sub
Err_setRs:
  aResultadoExecucao = False
  Call aMensagem.erro(Err.Description, Err.Number)
End Sub

Public Function getRs() As ADODB.Recordset
  Set getRs = aRs
End Function

'Classe SQL

Option Explicit
Private aBd As Bd 'declaração do objeto do tipo sql

Public Sub Class_Initialize()
  Set aBd = New Bd 'ato de instanciar o objeto abd
  aBd.inicializaConexao
End Sub

Public Sub Class_Terminate()
  aBd.encerraConexao
  Set aBd = Nothing
End Sub

'Iremos supor que a tabela onde existam os dados se chama Lista, com os seguintes campos: ddd, cidade, uf. Execute o método setrs dentro da classe sql assim: asql.setrs("select * from lista where ddd = conteudo do textbox"). Após encontrar o ddd desejado, vc irá retornar os dados da seguinte forma: asql.getrs!ddd para retornar o ddd, asql.getrs!cidade para retornar a cidade e asql.getrs!uf para retornar a uf.

Caso tenha dúvidas, poste a mensagem e não se esqueça de fazer o registro no fórum

Abs
Eduard