Private Function LookUpMaterial() As String
 
 
 
        Dim strSql = "SELECT Materialbezeichnung FROM Bestellpositionen WHERE" & _
          "[Bestell-Nr] = '" & strBestellNr & "'"
 
        Dim conStr As String = "Provider=MIcrosoft.Jet.OLEDB.4.0;Data" & _
          "Source='F:\VisualBasic\VS-Projekte\ProjectsVS08\Dantenbanken\BackEn" & _
          "PB_PV.mdb'"
 
        Dim Cn As New OleDbConnection(conStr)
        Cn.Open()
 
 
 
 
        Dim cmdAdr As New OleDbCommand(strSql, Cn)
 
        Dim drAdr As OleDbDataReader = cmdAdr.ExecuteReader()
 
 
        Do While drAdr.Read
            If Not drAdr.Item("Materialbezeichnung") Is DBNull.Value Then
                strMaterialauswahl = drAdr.Item("Materialbezeichnung")
            End If
        Loop
 
        Return strMaterialauswahl
 
 
        Cn.Close()
    End Function

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET