帮忙解释更新库存的代码，谢谢。

帮忙在每行代码右边加上注释，谢谢，主要不懂之处有：

1“(ByVal x%, ByVal y$, ByVal z$)”的作用

2“CurrentDb”是第一次出现的，没有定义过，在这里有什么用.

3“ X0 = curRS.Fields("现有库存")”是什么意思

4“curdb.Execute "update 库存 set 原有库存=" & X0 & ",现有库存=" & X1 & ",库存变动日期=" & sDate & _
   "where 药号='" & y & "'"”　这句里为什么在sDate后加上一下划线“_”

Public Sub 更新药库库存(ByVal x%, ByVal y$, ByVal z$)
Dim curdb As Database
Dim curRS As Recordset
Dim X0%, X1%, sDate As Date
    sDate = Date

Set curdb = CurrentDb
Set curRS = curdb.OpenRecordset("select * from 库存 where 药号='" & y & "'") '药号.Value
If Not curRS.EOF Then
   X0 = curRS.Fields("现有库存")
   X1 = X0 - CInt(x)
   curdb.Execute "update 库存 set 原有库存=" & X0 & ",现有库存=" & X1 & ",库存变动日期=" & sDate & _
   "where 药号='" & y & "'"
  curdb.Execute "insert into 操作日志 (用户名,操作内容,操作时间) values (admin,z," & Date & ")"
End If
 
End Sub