dim Param1 as string = Me.ComboBox1.SelectedValue.tostring   'oder welcher 
' Datentyp auch immer
Me.OleDbSelectCommand2.CommandText = "SELECT verbindung.name FROM" & _
  "connectiongroup INNER JOIN verbindung ON connectiongroup.id =" & _
  "verbindung.connectiongroup_id WHERE (((connectiongroup.name)='" + Param1 + _
  "'))"

Micke