protected function GetConnectionstring(Server As String, User As String, PW As _
  String, DB As String) as String
	dim cb as New SqlConnectionStringBuilder ()
	cb.DataSource = server
	cb.InitialCatalog=DB
	cb.UserId = user
	cb.Password = password
	return cb.ToString()
End Function
 
Public Function GetTablesForServer(Server As String, User As String, PW As _
  String, DB As String) As DataTable
	Dim ConnectionString as String = GetConnectionstring(Server , User , PW , DB ) 
	Using oSQLcon As New SqlConnection(ConnectionString)
		oSQLcon.Open()
 
		Dim DataTable As DataTable = oSQLcon.GetSchema("Tables")
 
		System.Data.SqlClient.SqlConnection.ClearAllPools()
		return DataTable
	End Using
End Function
 
Public Function DBDelete(Server As String, User As String, PW As String, DB As _
  String) As Integer
	Dim ConnectionString as String = GetConnectionstring(Server , User , PW , DB ) 
	Using oSQLcon As New SqlConnection(ConnectionString)
		oSQLcon.Open()
		Dim SQLstr As String = "DROP DATABASE " & DB
		Dim oSQLcmd As New SqlCommand(SQLstr, oSQLcon)
 
		oSQLcmd.ExecuteNonQuery()
		System.Data.SqlClient.SqlConnection.ClearAllPools()
 
	End Using
End Function