'SQL-Kommando-Klasse initialisieren und parametrieren
        Dim cmd As New SqlCommand()
        With cmd
            .CommandText = "SELECT * FROM @table"       'SQL String
            .Connection = conn                          'Zurordnung der 
            ' Verbindung
        End With
 
        'SQL-Adapter definieren
        Dim db_adapt As New SqlDataAdapter()
        With db_adapt 'SQL-String angeben 
            .SelectCommand = cmd 'SQL String
            .SelectCommand.Parameters.Add("@table", SqlDbType.VarChar, _
              50).Value = Tabelle 'SQL-Parameter definieren
        End With
 
        'Datenbankabfrage
        Try
            conn.Open()
            db_adapt.Fill(ds, Tabelle)
            db_adapt.Dispose()
        Catch
            label_status.Text = "Status: Fehler " & Err.Number & " - " & _
              Err.Description
        Finally