CRIAR BANCO MSDE

Private Sub Command1_Click()
  Cria_BD_MSDE
End Sub

Private Sub Cria_BD_MSDE()

'cria uma instância do MSDE

Dim obj_MSDE As SQLDMO.SQLServer
Set obj_MSDE = New SQLDMO.SQLServer

'estabelece uma conexão

obj_MSDE.Connect "PC1", "sa", "teste"

'cria e instancia os objetos : DataFile , LogFile

Dim obj_BD_Dados As SQLDMO.Database
Set obj_BD_Dados = New SQLDMO.Database

Dim obj_dat_File As SQLDMO.DBFile
Set obj_dat_File = New SQLDMO.DBFile

Dim obj_Log_File As SQLDMO.LogFile
Set obj_Log_File = New SQLDMO.LogFile

'define quais as caracteristicas do arquivo de dados

With obj_dat_File
  .Name = "Arq_Dados"
  .PhysicalName = caminho & "Arq_Dados.mdf"
  .PrimaryFile = True
  .FileGrowthType = SQLDMOGrowth_MB
  .FileGrowth = 1
End With

'associa o arquivo de dados ao objeto database

obj_BD_Dados.FileGroups("PRIMARY").DBFiles.Add obj_BD_Dados

With obj_Log_File
  .Name = "Arq_Log"
  .PhysicalName = caminho & "Arq_log.ldf"
End With

'associa o arquivo de logo ao objeto Database

obj_BD_Dados.TransactionLog.LogFiles.Add obj_Log_File

'associa o banco de dados a coleção Databases do objeto MSDE

obj_MSDE.Databases.Add obj_BD_Dados

End Sub