Dim ds As DataSet = New DataSet("rechnung")
        Dim ds2 As DataSet = New DataSet("kunde")
        Dim dt1 As DataTable = ds2.Tables.Add("kunde")
 
        Dim col1_1 As DataColumn = dt1.Columns.Add("id", Type.GetType( _
          "System.String"))
        Dim col1_2 As DataColumn = dt1.Columns.Add("kdnr", Type.GetType( _
        "System.String"))
        Dim col1_3 As DataColumn = dt1.Columns.Add("firma", Type.GetType( _
        "System.String"))
        Dim col1_4 As DataColumn = dt1.Columns.Add("name", Type.GetType( _
        "System.String"))
        Dim col1_5 As DataColumn = dt1.Columns.Add("vorname", Type.GetType( _
        "System.String"))
        Dim col1_6 As DataColumn = dt1.Columns.Add("strasse", Type.GetType( _
        "System.String"))
        Dim col1_7 As DataColumn = dt1.Columns.Add("hausnr", Type.GetType( _
        "System.String"))
        Dim col1_8 As DataColumn = dt1.Columns.Add("plz", Type.GetType( _
        "System.String"))
        Dim col1_9 As DataColumn = dt1.Columns.Add("ort", Type.GetType( _
        "System.String"))
        Dim col1_10 As DataColumn = dt1.Columns.Add("notiz", Type.GetType( _
        "System.String"))
 
        'Dim da As New MySqlDataAdapter
 
        ' --------------- Daten auslesen -----------------
        Dim database_connect As New database_connect
        database_connect.initDbConnection()
        Dim SQL = "SELECT * FROM kunden WHERE kdnr = '" & tb_kundennr.Text & "'"
 
        Dim cmd As New MySqlCommand(SQL, database_connect.DbConnection)
        Dim dr As MySqlDataReader
 
        Dim ku_id As Integer
        Dim ku_kdnr As String
        Dim ku_firma As String
        Dim ku_name As String
        Dim ku_vorname As String
        Dim ku_strasse As String
        Dim ku_hausnr As String
        Dim ku_plz As String
        Dim ku_ort As String
        Dim ku_notiz As String
 
 
        Try
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            Do While (dr.Read())
                ku_id = dr.Item("id").ToString
                ku_kdnr = dr.Item("kdnr").ToString
                ku_firma = dr.Item("firma").ToString
                ku_name = dr.Item("name").ToString
                ku_vorname = dr.Item("vorname").ToString
                ku_strasse = dr.Item("strasse").ToString
                ku_hausnr = dr.Item("hausnr").ToString
                ku_plz = dr.Item("plz").ToString
                ku_ort = dr.Item("ort").ToString
                ku_notiz = dr.Item("notiz").ToString
            Loop
 
        Catch ex As Exception
            MsgBox(ex.Message, , "test1")
        Finally
            dr.Close()
 
        End Try
 
        '----------------------
        dt1 = ds2.Tables.Item("kunde")
        Dim nr As DataRow = dt1.NewRow()
        nr("id") = ku_id
        nr("kdnr") = ku_kdnr
        nr("firma") = ku_firma
        nr("name") = ku_name
        nr("vorname") = ku_vorname
        nr("strasse") = ku_strasse
        nr("hausnr") = ku_hausnr
        nr("plz") = ku_plz
        nr("ort") = ku_ort
        nr("notiz") = ku_notiz
        dt1.Rows.Add(nr)
 
'-------------------------------
 
rpt.Database.Tables(0).SetDataSource(ds2.Tables("kunde"))
CrystalReportViewer1.ReportSource = rpt