Public Function Einlesen(ByVal Server As String, ByVal Datenbank As String, _
  ByVal Tabelle As String, ByVal data As Object)
 
      Dim clsdb As clsDatenbank
 
      clsdb = New clsDatenbank(Server, Datenbank)
      Call clsdb.openDB()
 
      clsdb.Command = New SqlCommand(SqlString, clsdb.Conn)
 
      clsdb.DataSet = New DataSet
 
      clsdb.DataAdapter = New SqlDataAdapter(clsdb.Command)
 
      clsdb.DataAdapter.Fill(clsdb.DataSet, Tabelle)
 
      data.DataSource = clsdb.DataSet.Tables(Tabelle)
 
   End Function

 
clsdb.DataSet.Tables(Tabelle).Columns("TI_Test123").Caption = "Test 123"