' Execute stored procedure to add record.

Set cmd = ADOCommand("InsertLogWaypoint", cn, adCmdStoredProc)

With cmd

.Parameters.Append .CreateParameter("Time", adDBTimeStamp, adParamInput, , rstLog.Fields("Time").Value)

.Parameters.Append .CreateParameter("Lat", adSingle, adParamInput, , rstLog.Fields("Latitude").Value)

.Parameters.Append .CreateParameter("Long", adSingle, adParamInput, , rstLog.Fields("Longitude").Value)

.Parameters.Append .CreateParameter("Acc", adInteger, adParamInput, , rstLog.Fields("Accuracy").Value)

.Parameters.Append .CreateParameter("Dir", adInteger, adParamInput, , rstLog.Fields("Direction").Value)

.Parameters.Append .CreateParameter("Speed", adNumeric, adParamInput, , rstLog.Fields("Speed").Value)

End With

.Parameters.Append .CreateParameter("LocID", adInteger, adParamInput, , rstLog.Fields("LocationID").Value)

.Parameters.Append .CreateParameter("ID", adInteger, adParamOutput)

.Execute

End With