ola bom dia pessoal, fiz uma conexao com o bco oracle desta forma
Private Sub Form_Load()
Call AdoConectaOracle
Set AdoCon = New ADODB.Connection
Set AdoRs = New ADODB.Recordset
End Sub
'Conexão com o BANCO
Sub AdoConectaOracle()
On Error GoTo Erro
Set AdoCon = New ADODB.Connection
With AdoCon
.ConnectionTimeout = 200
.ConnectionString = "Provider=MSDAORA.1;Password=consinco;User ID=consinco;Data Source=orcl;Persist Security Info=True"
.Open
End With
Exit Sub
Erro:
MsgBox ("Houve um erro de Conexão com o Banco de Dados Oracle ")
End Sub
agora como faço para abrir o AdoRs, e listar dados da tabela em um textbox ???