Option Explicit
Dim AdoCn As ADODB.Connection
Dim AdoCmd As ADODB.Command
Dim Rs As ADODB.Recordset
Dim strSQL As String
Private Sub Form_Load()
Set AdoCn = New ADODB.Connection
AdoCn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=nataly;Persist Security Info=True;User ID=che;Data Source=ORCL"
AdoCn.CursorLocation = adUseClient
AdoCn.Open
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
strSQL = "select * from agents"
Rs.Open strSQL, AdoCn, adOpenForwardOnly, adLockBatchOptimistic
Set fg.DataSource = Rs
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Rs.ActiveConnection = Nothing
Rs.Close
Set Rs = Nothing
AdoCn.Close
Set AdoCn = Nothing
End Sub