Sub SetSQl(ByVal SQL As String)
        Dim conn As New SqlCeConnection
        Dim cmd As New SqlCeCommand
 
        conn.ConnectionString = "datasource = C:\Temp\myDB.sdf"
        cmd.Connection = conn
        cmd.CommandText = SQL
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub
 
SetSQL=("Create Table"' & Mid(Date.Today,1,2) & Mid(Date.Today,4,2) & Mid( 
' Date.Today,7,4) & '" (Spalte1 nchar(100))")