Code:
Function Receipts(ByVal CHEMICAL As String) As ADODB.Recordset Dim sql As String Dim beginningDate As Date Dim endingDate As Date Dim chemicalID As String
Function Receipts(ByVal CHEMICAL As String) As ADODB.Recordset Dim sql As String Dim beginningDate As Date Dim endingDate As Date Dim chemicalID As String
$dbMail = new COM("ADODB.Connection");