Public Function TableToComboBox(Server As String, User As String, PW As _
   String, DB As String, CMB As ComboBox) As Integer
        Try
            CMB.Items.Clear()
            CMB.Text = Nothing
            Dim oSQLcon As New SqlConnection("Data Source=" & Server & ";" & _
              "Initial Catalog=" & DB & "; User ID=" & User & "; Password=" & _
              PW)
            oSQLcon.Open()
 
            Dim DataTable As DataTable = oSQLcon.GetSchema("Tables")
 
            oSQLcon.Close()
            System.Data.SqlClient.SqlConnection.ClearAllPools()
 
            Dim row As DataRow
            For Each row In DataTable.Rows
                For Each col As DataColumn In DataTable.Columns
                    If col.ColumnName = "TABLE_NAME" Then CMB.Items.Add(row( _
                      col.ColumnName).ToString)
                Next
            Next
 
            DataTable.Dispose()
 
            Return 1
        Catch ex As Exception
            MsgBox(ex.Message)
            Return 0
        End Try
    End Function
 
Public Function DBDelete(Server As String, User As String, PW As String, DB As _
  String) As Integer
        Try
            Dim oSQLcon As New SqlConnection("Data Source=" & Server & ";  User" & _
              "ID=" & User & "; Password=" & PW)
            Dim SQLstr As String = "DROP DATABASE " & DB
            Dim oSQLcmd As New SqlCommand(SQLstr, oSQLcon)
 
            oSQLcon.Open()
            oSQLcmd.ExecuteNonQuery()
            oSQLcon.Close()
            System.Data.SqlClient.SqlConnection.ClearAllPools()
 
            Return 1
        Catch ex As Exception
            MsgBox(ex.Message)
            Return 0
        End Try
    End Function