Public Function getTableName(ByVal table As String, ByVal db As String, ByVal _
   server As String, ByVal account As String, ByVal passwd As String) As String( _
   )
        Dim da As New SqlDataAdapter("SELECT * FROM table", New SqlConnection( _
        "Initial Catalog=" + db + _
                                        ";Data Source =" + server + _
                                        ";User ID=" + account + _
                                        ";password=" + passwd + _
                                        ";Connect Timeout=20"))
        Dim dt As New DataTable()
        Dim dc As DataColumn
 
        Try
          da.FillSchema(dt, SchemaType.Source)
        Catch ex As Exception
          MessageBox.Show(ex.ToString())
        End Try
 
        For Each dc In dt.Columns
            Debug.WriteLine(dc.ColumnName)
        Next
 
    End Function