Imports System.Data.SqlServerCe
 
Module Module1
 
    Sub Main()
        ' Verbindungszeichenfolge erstellen
        Dim Csb As New SqlCeConnectionStringBuilder
        Csb.DataSource = "Datenbank.sdf"
        Csb.PersistSecurityInfo = False
        Csb.Password = "Test"
        ' Datenbank erstellen
        Dim Engine As New SqlCeEngine(Csb.ConnectionString)
        Engine.CreateDatabase()
        Console.WriteLine(Engine.LocalConnectionString)
        Engine.Dispose()
        Dim Con As New SqlCeConnection(Csb.ConnectionString)
        Con.Open()
        Console.WriteLine(Csb.ConnectionString)
        Con.Close()
        My.Computer.FileSystem.DeleteFile(Csb.DataSource)
        Console.ReadKey()
    End Sub
 
End Module