Thanks that has taken me past that error, I now get the same error on the next line..
rs.Open "SELECT * from Employees", cnn, , , adCmdText