Private Sub CompactDeleteData(ByVal TABLE As String)
 
        Dim cmdCompact As New SqlCeCommand()
        cmdCompact.Connection = ConnectionCompact()
        cmdCompact.CommandText = ResSQLCompact.DeleteAll ' DELETE FROM @Table
 
        Dim id = cmdCompact.CreateParameter()
        id.DbType = System.Data.DbType.String
        id.ParameterName = "@Table"
        id.Value = TABLE
        cmdCompact.Parameters.Add(id)
        cmdCompact.Prepare()
 
        MsgBox(cmdCompact.ExecuteNonQuery)
 
    End Sub

Dim ConnectionString As String = ....
Dim CommandText As String = "DROP TABLE " & CStr(TableName)
 
Using conn As New SqlCeConnection(ConnectionString), _
     cmd As New SqlCeCommand(CommandText, conn)
     conn.Open()
     cmd.ExecuteNonQuery()
End Using