Private Function LookUpSUCHBEGRIFF(ByVal ID As String)
 
 
        Dim strSql As String = "SELECT SPALTENNAME FROM TABELLENNAME WHERE NR =" & _
          " '" & ID &     
        Dim sConnString As String = "***DEINE DATENBANK"
        Dim conStr As String = sConnString
        Dim Cn As New Odbc.OdbcConnection(conStr)  '<- Das ist in deinem Fall 
        ' OLEDB.Connection
 
        Try
            Cn.Open()     'Verbindung zur db öffnen
        Catch ex As Exception
            MsgBox("Bitte überprüfen Sie die Datenbankverbindung! FEHLER !!" & _
              Environment.NewLine & ex.Message)
            Exit Sub
        End Try
 
        Dim cmdAdr As New Odbc.OdbcCommand(strSql, Cn)
        Dim drAdr As Odbc.OdbcDataReader = cmdAdr.ExecuteReader()
        Dim SUCHBEGRIFF As String = ""
 
        Do While drAdr.Read
            If Not drAdr.Item("SPALTENNAME") Is DBNull.Value Then      
                SUCHBEGRIFF = drAdr.Item("SPALTENNAME")
            End If
        Loop
 
Finally
        Cn.Close()
 
 
        Return SUCHBEGRIFF
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET