Function HB_DATENBANK_OUT_2(ByVal HB_Datum As Date, ByVal HB_Art As String, _
                            ByVal HB_SearchItem As String)
 
Dim con As New SqlServerCe.SqlCeConnection
con.ConnectionString = "Data Source=Database1.sdf"
Dim SQL As String = "SELECT " & HB_SearchItem & " FROM Datenbank WHERE Datum =" & _
  "'" _
& HB_Datum & "' AND Art = '" & HB_Art & "'"
Dim adapter As New SqlServerCe.SqlCeDataAdapter(SQL, con)
Dim cmd As New SqlServerCe.SqlCeCommandBuilder(adapter)
Dim data_set As New DataSet()
 
con.Open()
Try
adapter.Fill(data_set, "Datenbank")
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Dispose()
End Try
con.Close()
 
...
 
End Function