这几句代码都是什么意思啊？菜鸟求解释，谢谢！

'这些代码不是一个整体，分别解释
　　'objCn 是一个已定义的数据源对象，这里用with指定默认的操作对象
　　With objCn
　　
　　　'设置数据源连接字串，这里的意思未打开caiwu.mdb 这个数据库文件 
　　　 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & App.Path & "\caiwu.mdb;Persist SecurityInfo=False"
　　
　　'打开上面字串中引用的数据库
　　  .Open 
　　
　　  '对象引用结束
　　    End With

　  '查询“收入日期”字段中包含文本框text1中输入的日期的记录
　  AR.Open"Select * From 收入 where Year(收入日期) like '" & Text1.Text & "'", conn, adOpenKeyset, adLockOptimistic, 1
　  
　  
　 '.value是当前查询到的记录中某个字段的值，下面的意思为 p1变量等于"系统管理"这个字段的值
　  p1 = objRs.Fields("系统管理").Value  （.value是什么？）
　  
　  
　 ' 定义一个新的数据库记录集对象，对象名AR,用于将查询到的记录指定到这个对象，便于读取数据或操作
　 　  Dim AR As New ADODB.Recordset（ADODB.Recordset是什么？）

　  
　  Call CallNew '的意思是调用CallNew这个子程序，但是你的代码里没有这个子程序，具体功能不得而知