This is the code I used for my GetName macro

Sub GetName()

    Dim OraSession As Object
    Dim OraDatabase As Object
    Dim GradeDynaset As Object
    Dim ColNames As Object
    Dim PLSQLStmt1 As String
    Dim inname As String
  
    inname = UserForm1.nameBox.Value
    PLSQLStmt1 = "select NAME from exercise2 where NAME = " & "'" & inname & "'"
    UserForm1.nameBox.Text = PLSQLStmt1
    
    Set OraSession = CreateObject("OracleInProcServer.XOraSession")
    Set OraDatabase = OraSession.OpenDatabase("beq-local.world", "name/password", 0&)
    Set GradeDynaset = OraDatabase.DbCreateDynaset(PLSQLStmt1, 0&)
  
    Set ColNames = GradeDynaset.Fields

    For icols = 1 To ColNames.Count
        Worksheets("Sheet1").Cells(1, (icols + 1)).Value = ColNames(icols - 1).Name
      Next
 
  
    GradeDynaset.CopyToClipboard -1
    Sheets("Sheet1").Select
    Range("B2").Select
    ActiveSheet.Paste

End Sub