Подскажите, please!!! В чем проблема? Не получается связаться с базой
Пишу код:
Public con As New ADODB.Connection
Dim recset As New ADODB.Recordset
Dim Name As String
con.ConnectionString = "Provider=MSDAORA;driver={Microsoft ODBC for Oracle};Data Source=***;User ID=***;Password=***;"

con.Open
recset.Open "select***"
While (Not recset.EOF)
Name = recset.Fields(1).Value
txt1.Text = Name
recset.MoveNext
Wend
recset.Close
con.Close
End Sub
Выдает ошибку:Заданная приложением операция над объектом имеет ссылку на закрытый или недопустимый объект Connection. Хотя все параметры указаны верно. Подскажите, в чем может быть проблема!!!!????

Большое СПАСИБО, что ответили. Но опять ошибка. Пишу:
Option Explicit
Public con As New ADODB.Connection
Dim recset As New ADODB.Recordset
Private Sub Command1_Click()
Dim Name As String
con.ConnectionString = "Provider=MSDAORA;driver={Microsoft ODBC for Oracle};Data Source=***;User ID=***;Password=***;"
con.Open
recset.Open "select * from **", con, adOpenStatic, adLockReadOnly, adCmdText
While (Not recset.EOF)
Name = recset.Fields(1).Value
txt1.Text = Name
recset.MoveNext
Wend
recset.Close
con.Close
End SubВыдает ошибку:
ADO не удается найти объект в семействе по указанной приложением ссылке на его имя или порядковый номер.

Спасибо всем огромное!! Разобралась.

Все было просто. Неправильно указала имя поля
Name = recset.Fields(!!!).Value