Dim con As SqlConnection
Dim DA As SqlDataAdapter
Dim report As New rptVerkauf() 'mein Report
Dim DS As New DS_Verkauf() 'mein DataSet
Dim sql As String
 
con = New SqlConnection("Data Source=[...]")
sql = "SELECT * FROM tb_Verkauf"
 
con.Open()
 
DA = New SqlDataAdapter(sql, con)
 
DA.Fill(DS, "tb_Verkauf")
 
report.SetDataSource(DS.Tables("tb_Verkauf"))
 
CrystalReportViewer1.ReportSource = report
 
con.Close()

sql = "SELECT * FROM tb_Verkauf, tb_VerkaufDetails"
DA.Fill(DS, "Tabellen")
report.SetDataSource(DS.Tables("Tabellen"))