Function GetByDateAndType(ByVal HB_Datum As Date, ByVal HB_Art As String, _
                            ByVal HB_SearchItem As String)
 
 
Dim SQL As String = "SELECT " & HB_SearchItem & " FROM Datenbank WHERE Datum" & _
  "=@Date and Art=@Art"
Dim adapter As New SqlServerCe.SqlCeDataAdapter(SQL, ConnectionString)
 
adapter.SelectCommand.Parameters.AddWithValue("@Date",Date)
adapter.SelectCommand.Parameters.AddWithValue("@Art",HB_art)
 
Dim data_set As New DataSet()
 
Try
  adapter.Fill(data_set, "Datenbank")
Catch ex As Exception
  MessageBox.Show(ex.Message)
Finally
End Try
 
...
 
End Function