Visual Basic - ejecucion de script con vb

hola a todos
estoy ejecutando un script de base de datos de esta manera :

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set conn = New ADODB.Connection

cadena = "CREATE DATABASE [BDato ] ON (NAME = N'BDato_Data', FILENAME = ....."
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= ...
cmd.CommandText = cadena
cmd.CommandType = adCmdText
conn.Open
Set cmd.ActiveConnection = conn
cmd.execute , , adAsyncExecute

Esto lo hace bien, pero si luego creo una nueva conexion con la nueva base de datos, pero es como si no hubiera creado la base de datos a menos que le haga un Refresh desde el SQL Enterprise Manager.
Mi pregunta es , como puedo hacer un refresh de la base de datos desde el visual basic ???

Saludos

Cuanto tiempo le das a la BD para luego crear la nueva conexión?
Si es seguido, te recomiendo al menos una línea con un DoEvents