Username/Password with vba error: "Method or data member not found"

The code i used further up is to create an SQL query from excel and retrieve values from access.

Would the same code work in my case ?
or should i remove

Do Until rstNewQuery.EOF
For Each rstFld In rstNewQuery.Fields
msg = msg & " : " & rstFld.Value
Next
msg = msg & vbNewLine
rstNewQuery.MoveNext
Loop