Public Function Get_Ordner_StammOrdner_by_Lager(ByVal LagerID As String) As _
   DataSet
 
        Dim Con As SqlConnection
        Dim DA As SqlDataAdapter = New SqlDataAdapter
        Dim DS As DataSet = New DataSet
        Dim p As SqlParameter
 
        Con = New SqlConnection(myConnectionToDatabase)
        Dim cm_SELECT As New SqlCommand("SELECT * FROM Ordner " & _
                                        "WHERE LG_ID=@PID AND ID = Parent", _
                                        Con)
        p = cm_SELECT.Parameters.Add("@PID", SqlDbType.VarChar, 32, "LG_ID") : _
        p.Value = LagerID
 
        DA.SelectCommand = cm_SELECT
 
        Try
            Con.Open()
            DA.Fill(DS, "StammOrdner")
        Catch ex As SqlException
            MsgBox(ex.Message)
            Con.Close()
            DS = Nothing
            Return DS
        End Try
 
        Con.Close()
        Return DS
    End Function

VB RULEZ !