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
 
 
        da.FillSchema(dt, SchemaType.Source)
 
        For Each dc In dt.Columns
            Debug.WriteLine(dc.ColumnName)
        Next
 
    End Function

TUXEMPIR,
Tux an die macht