Dim strConnPicDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=C:\datenbank.mdb;User Id=admin;Password=MyPW;Jet OLEDB:Database" & _
  "Password=MyPW"
 
        'Datenbankverbindung 
        Dim connPicDB As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          strConnPicDB)
 
        'Command 
        Dim cmd As New OleDb.OleDbCommand("Select * From Pictures", connPicDB)
        cmd.Parameters.Add("ID", OleDb.OleDbType.Integer).Value = 1 'Get image
        connPicDB.Open()