Private ds As DataSet
    Private dt1 As DataTable
    Private dt2 As DataTable
    Private dt3 As DataTable
    Private dtJoinGrid As DataTable
 
    Private da1 As System.Data.SqlClient.SqlDataAdapter
    Private da2 As System.Data.SqlClient.SqlDataAdapter
    Private da3 As System.Data.SqlClient.SqlDataAdapter
 
    Dim sql As String
        dt3 = New DataTable
        sql = "SELECT Bezeichnung, Nr FROM Impfstoff"
        da3 = New SqlClient.SqlDataAdapter(sql, sqlcn)
        da3.Fill(ds, "Impfstoff")
        dt3 = ds.Tables("Impfstoff")
 
        dt2 = New DataTable
        sql = "SELECT Terminart, Impfungen, Tage, Programm_id, Impfstoff FROM" & _
          "Impfprogramme_Detail"
        da2 = New SqlClient.SqlDataAdapter(sql, sqlcn)
        da2.Fill(ds, "Impfprogramme_Detail")
        dt2 = ds.Tables("Impfprogramme_Detail")
 
        dt1 = New DataTable
        sql = "SELECT ID, Bezeichnung, Beschreibung FROM Impfprogramme_main" & _
          "order by Bezeichnung"
        da1 = New SqlClient.SqlDataAdapter(sql, sqlcn)
        da1.Fill(ds, "Impfprogramme_main")
        dt1 = ds.Tables("Impfprogramme_main")