Dim SQL As String
Dim rst As DAO.Recordset
Dim str As String, i As Integer, j As Integer
 
    SQL = "SELECT AmPvOptiNr, AmPvGruppe01Nr, AmPvDetail01Nr FROM" & _
      "tblMoAMzbhHvPv WHERE (AmPvOptiNr = 6000) AND (AmPvGruppe01Nr = 900)"
    Set rst = CurrentDb.OpenRecordset(SQL)
    For j = 1 To rst.RecordCount
        For i = 1 To rst.Fields.Count
            'rst.Move(j)
            str = str & CStr(rst.Fields(i - 1).Value) & " | "
        Next i
        str = str & vbCrLf
    Next j