Public Function TableToComboBox(Server As String, User As String, PW As String, _
  DB As String, CMB As ComboBox)
        Try
            CMB.Items.Clear()
            CMB.Text = Nothing
            Dim oSQLcon As New SqlConnection()
            Dim DataTable As DataTable
            oSQLcon.ConnectionString = "Data Source=" & Server & "; Initial" & _
              "Catalog=" & DB & "; User ID=" & User & "; Password=" & PW
            oSQLcon.Open()
            DataTable = oSQLcon.GetSchema("Tables")
            oSQLcon.Close()
 
            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.Clear()
            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)
        Try
            Dim oSQLcon As New SqlConnection()
            oSQLcon.ConnectionString = "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()
            oSQLcon.Dispose()
            Return 1
        Catch ex As Exception
            MsgBox(ex.Message)
            Return 0
        End Try
    End Function