Use the Table View Control to prepare the display of the R/3 data as follows:

Private Sub ShowData()

Dim Col As Object

   Screen.MousePointer = vbHourglass        'Activate hour glass

'

'Connect Table object with Table View

   oPersonalData.Views.Add SAPTableView1.object

'

'Table Update

   oPersonalData.Refresh

'

'Loop at table columns

   For Each Col In oPersonalData.Columns

      SAPTableView1.Columns(Col.Index).Name = Col.Name

      SAPTableView1.Columns(Col.Index).Protection = True

   Next Col

'

'Column headings

   SAPTableView1.Columns("Perno").Header = "Employee No."

   SAPTableView1.Columns("Firstname").Header = "First Name"

   SAPTableView1.Columns("Last_Name").Header = "Last Name"

   SAPTableView1.Columns("Birthdate").Header = "Birth Date"

   SAPTableView1.Columns("Birthplace").Header = "Birth Place"

'

'Automatically adapt column width to contents

   SAPTableView1.ColumnAutoWidth 1, SAPTableView1.ColumnCount

   Screen.MousePointer = vbDefault         'Deactivate hour glass

End Sub