z = Forms!fsubMain1.Form.txtID
d = Format([DOV], "\#dd\/mm\/yyyy#\")
xx="test"
For i = 0 To rs.RecordCount - 1
xx = arrayx(0, i)
strX = "INSERT INTO tbDiagServMat(TM_Date,HorseID,DiagServiceMaterial) " & _
"VALUES (#" & d & "#,'" & z & "','" & xx & "');"
DoCmd.SetWarnings...