Если не получается через sqlcmd, то делай так например:

Dim _cls As New ClsConSqlDb()
Dim oCommand As New SqlClient.SqlCommand()
Dim strPatchScript As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & My.Resources.PathTmp
IO.File.AppendAllText(strPatchScript, My.Resources.createdb)
If IO.File.Exists(strPatchScript) = True Then
oCommand.CommandType = CommandType.Text
oCommand.CommandText = My.Computer.FileSystem.ReadAllText(strPatchScript)
_cls.ExecuteNonQuery(oCommand)
End If

где:
My.Resources.PathTmp - путь к папке для хранения скрипта (в файле ресурсов)
My.Resources.createdb - сам файл скрипта (в файле ресурсов)
_cls.ExecuteNonQuery(oCommand) - метод класса