[VB6] inserire record in textbox multilinea

[donini]

ho madificato in questo modo ma mi restituisce solo il primo record del campo , mentre io vorrei che mi visualizzi tutti i record del campo

Sub query(str As String)

 Set cn = New ADODB.Connection
 Set rs = New ADODB.Recordset
 cn.Provider = "microsoft.jet.oledb.4.0"
 cn.ConnectionString = "C:\ORE.mdb"
 cn.Open
 rs.LockType = adLockOptimistic
 rs.CursorLocation = adUseClient
 rs.Source = str
 Set rs.ActiveConnection = cn
 
 rs.Open
 
 If rs.EOF Then
 
   MsgBox "Nessun record trovato", vbInformation, "Ricerca fallita"
   Exit Sub
   
 End If
 
  Set ope.DataGrid1.DataSource = rs
  Text1.Text = rs("ora").value
  
End Sub