Dim myAssem As [Assembly]
myAssem = [Assembly].GetExecutingAssembly()
Dim s As System.IO.Stream = myAssem.GetManifestResourceStream("EmbeddedResources.Res.db")
Dim sr As New System.IO.StreamReader(s)
My.Computer.FileSystem.WriteAllText("D:\Res.db", sr.ReadToEnd(), False)
object ADOXCat = Activator.CreateInstance(Type.GetTypeFromProgID("ADOX.Catalog"));
ADOXCat.GetType().InvokeMember("Create", System.Reflection.BindingFlags.InvokeMethod, null, ADOXCat, new string[] { ConnectionString });