Dim fcpreposDb As OleDbConnection
    Dim fcpreposCmd As OleDbCommand
    Dim datareader As New OleDbDataReader()

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        InitApp()
 
        fcpreposDb = New OleDbConnection( _
          "Provider=MSDAORA.1;UserID=user;password=" _
                                         + "password;database=db")
 
 
        Try
            fcpreposDb.Open()
            fcpreposCmd = New OleDbCommand("Select * from *", fcpreposDb)
            datareader = fcpreposCmd.ExecuteReader()
 
            While datareader.Read()
 
                'whatever
 
            End While
 
            datareader.Close()
            fcpreposDb.Close()
 
        Catch ex As Exception
            MsgBox("Connection failed.")
            End
        End Try
 
 
 
    End Sub