How to generate Sql Database script using vb.net

See more:

VB

SQL-Server-2008

I want generate sqlscript and run sqlscript using vb.net any one can tell me how to do this i am using following code but he give me error: Failed to connect to server ..)

Dim tableFileName As String = "D:\PharmaDbScript.sql"
Dim tableText As String
Dim srvMgmtServer As Server = New Server
Dim srvConn As ServerConnection
Dim osqlservers As String = oSQLConnection.ToString

Dim objDB As Database = srvMgmtServer.Databases(osqlservers)
srvConn = srvMgmtServer.ConnectionContext
srvConn.ServerInstance = SQLServer
srvConn.LoginSecure = False
If srvConn.LoginSecure = False Then
   srvConn.Login = "id"
   srvConn.Password = "password"
End If

Using FileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(tableFileName)
   tableText = FileReader.ReadToEnd
End Using

If tableText <> "" Then
   objDB.ExecuteNonQuery(tableText)
End If