Dim s As String
    s = Me.combobox1.Text
 
    Dim conn As New SQLite.SQLiteConnection
    conn.ConnectionString = "Data Source=db1.s3db;Version=3;"
 
    Try
      conn.Open()
    Catch ex As Exception
      MessageBox.Show(ex.Message, "Beim Öffnen der Datenbank ist ein Fehler" & _
        "aufgetreten.")
    End Try
 
    Dim cmd As New SQLite.SQLiteCommand
    cmd.Connection = conn
    cmd.CommandText = "SELECT Buch FROM tbl1 WHERE Name = '" & s & "'"
 
    Dim da As New SQLite.SQLiteDataAdapter
    da.SelectCommand = cmd
 
    Dim DataSet1 As New DataSet
    da.Fill(DataSet1, "tbl1")
 
    combobox2.DataSource = DataSet1.Tables.Item("tbl1")
 
    combobox2.Refresh()