How can I print the results from this 4 into a text box
Code:
Sub ShowUserRosterMultipleUsers()
Dim cn As Object ' ADODB.Connection
Dim rs As Object ' ADODB.Recordset
Const adSchemaProviderSpecific As Long = -1
Set cn = CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
cn.Open "Data Source=C:\Users\admin\Desktop\Reports.accdb"
Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
' Output the list of all users in the current database.
Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
"", rs.Fields(2).Name, rs.Fields(3).Name
Do While Not rs.EOF
Debug.Print rs.Fields(0), rs.Fields(1), _
rs.Fields(2), rs.Fields(3)
rs.MoveNext
Loop
End Sub