sum($Rows/@Price[@Unit='Item1'])

Public Sub cmdSelRO_Click()
On Error GoTo Err_cmdSelRO_Click

Dim dbs As Database
Dim rst As DAO.Recordset
Dim SQL As String

'If txtTitleRecoveryOfficer.Visible = False Then
'    txtTitleSolicitor.Visible = True
'Else
'    txtTitleRecoveryOfficer.Visible = False
'    txtTitleSolicitor.Visible = True
'End If

Set

Public Sub cmdSelRO_Click()
On Error GoTo Err_cmdSelRO_Click

Dim dbs As Database
Dim rst As DAO.Recordset
Dim SQL As String

SQL = "SELECT * FROM tblSolicitorMonthlyReport WHERE RO = '" & cmbRO.Value & "' ORDER BY RO"
Set dbs = CurrentDb("tblSolicitorMonthlyReport")

Public Sub cmdBulkUpload_Click()
On Error GoTo Err_cmdBulkUpload_Click

Dim Archive
Dim Source
Dim arcPath As String
Dim StoragePath As String
Dim SourcePath As String
Dim Storage
Dim myfile
Dim dbSource As Database
Dim dbStorage As Database
Dim dbStorageExecute As String
Dim dbSourceExecute