DevOps, CI/CD and Automation

hi,

I wrote a program in VB, which call a stored procedure with 13 parameters.
However, i found only 7 parameters were passed to the procedure, others were null.
Here is my program,
Set .ActiveConnection = pConnect
.CommandType = adCmdStoredProc
.CommandText = "GUESTINTERFACE"

.Parameters.Append .CreateParameter("NGUESTID", adNumeric, adParamInput, 10, tNewInterInfo.nGuestID) '客人号
.Parameters.Append .CreateParameter("NOLDRESVID", adNumeric, adParamInput, 10, tOldInterInfo.nResvID) '旧的预定号

.Parameters.Append .CreateParameter("STROLDROOM", adVarChar, adParamInput, 6, tOldInterInfo.strRoomNo) '旧的房间号码
.Parameters.Append .CreateParameter("STROLDDEPART", adVarChar, adParamInput, 10, tOldInterInfo.strDepartDate) '旧的离店日期
.Parameters.Append .CreateParameter("STROLDDEPARTTIME", adVarChar, adParamInput, 5, tOldInterInfo.strDepartTime) '旧的离店时间
.Parameters.Append .CreateParameter("STROLDROOMSTATUS", adVarChar, adParamInput, 4, tOldInterInfo.strStatus) '旧的房间状态
.Parameters.Append .CreateParameter("NNEWRESVID", adNumeric, adParamInput, 10, tNewInterInfo.nResvID) '新的预定号。
.Parameters.Append .CreateParameter("STRNEWROOM", adVarChar, adParamInput, 6, tNewInterInfo.strRoomNo) '新的房间号码。
.Parameters.Append .CreateParameter("STRNEWDEPART", adVarChar, adParamInput, 10, tNewInterInfo.strDepartDate) '新的离店日期
.Parameters.Append .CreateParameter("STRNEWDEPARTTIME", adVarChar, adParamInput, 5, tNewInterInfo.strDepartTime) '新的离店时间
.Parameters.Append .CreateParameter("STRNEWROOMSTATUS", adVarChar, adParamInput, 4, tNewInterInfo.strStatus) '新的房间状态
.Parameters.Append .CreateParameter("STRMODIFYDATE", adVarChar, adParamInput, 10, PR_HOTEL_DATE) '修改日期
.Parameters.Append .CreateParameter("STRMODIFYTIME", adVarChar, adParamInput, 5, Format(Time, "HH:MM")) '修改时间

.Parameters.Append .CreateParameter("STROUTPUT", adVarChar, adParamInputOutput, 1) '返回值

.Execute

I found the value before NNEWRESVID could be passed correctly, but the below couldn't.
If I modified the type of the parameter to adInteger, the below values could be passed.

However, if I want to pass double or currency values, what can I do?

Thanks!
Robin