Try
    dim ConnectionString as string = "Data Source=db1.s3db;Version=3;"
    dim SelectString as string = "SELECT Buch FROM tbl1 WHERE Name = @Name"
 
    Dim da As New SQLite.SQLiteDataAdapter(SelectString,ConnectionString)
    da.SelectCommand.Parameters.AddWithValue("@Name", Me.combobox1.Text )
 
    Dim DataSet1 As New DataSet
    da.Fill(DataSet1, "tbl1")
 
    combobox2.DisplayMember = "Name"
    combobox2.DataSource = DataSet1.Tables.Item("tbl1")
Catch ex As Exception
      MessageBox.Show(ex.Message, "Beim Öffnen der Datenbank ist ein Fehler" & _
        "aufgetreten.")
End Try