Option Strict Off
Imports System.Data.oledb
 
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim objconn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
          & _
                  "User ID=Admin;" & _
                  "Data Source=C:\Dokumente und Einstellungen\Philipp" & _
                  "Hohmann\Eigene Dateien\Fussball.mdb")
 
        Try
            objconn.Open()
        Catch Ex As Exception
            'Folge
            MsgBox("Fehler!")
        End Try
 
 
        Dim objcmd As New OleDbCommand("SELECT * FROM Vereine_Deutschland01" & _
          "WHERE ID=2", objconn)
 
        Dim objDataReader As OleDbDataReader = objcmd.ExecuteReader
        objDataReader.Read()
 
 
        lbo_Vereine.Items.Add(objDataReader.Item("Verein"))
 
        pic_Wappen.Image = Drawing.Image.FromFile(objDataReader.Item( _
          "Stadionbild"))
 
 
        objDataReader.Close()
        objcmd.ExecuteReader.Close()
 
 
' Abfrage 2
        Dim objcmd3 As New OleDbCommand("SELECT ID FROM Vereine_Deutschland01" & _
          "WHERE ID = 5", objconn)
        Dim objDataReader3 As OleDbDataReader = objcmd.ExecuteReader
        objDataReader3.Read()
 
        TextBox1.Text = objDataReader3.Item("ID")
 
 
        objconn.Close()
 
 
    End Sub
End Class

Gru?

RollingStones