Function GetData(strSQL)<br>Dim a(0, 0)<br>'works with a select query to the DB then re-orders and returns data<br>Dim rs As New ADODB.Recordset<br>Dim TT()<br>   GetData = a<br>   rs.Open strSQL, cn<br>   If rs.EOF Then Exit Function<br>   Xdata = rs.GetRows<br>   Xcols = UBound(Xdata)<br>   Xrows = UBound(Xdata, 2)<br>   ReDim TT(Xrows + 1, Xcols)<br>   For rdx = 0 To Xrows<br>        For cdx = 0 To Xcols<br>            TT(rdx + 1, cdx) = Xdata(cdx, rdx)<br>         Next cdx<br>    Next rdx<br>    <br>    With rs<br>        For cdx = 0 To .Fields.Count - 1<br>            TT(0, cdx) = .Fields(cdx).Name<br>        Next cdx<br><br>   End With<br>    <br>   GetData = TT<br>    rs.Close<br>End Function			<br><br>asdfasdfa

Function MSDateToSQL(Adate) As String
'SQL Recognises  a string "YYYY-MM_DD" as a date
    SQ = Chr(39)
    MSDateToSQL = SQ & Format(Adate, "YYYY-mm-dd") & SQ
End Function

Q1 = Chr(39)
Q2 = Chr(34)
strSQL = "SELECT * FROM ClaimTable WHERE ClaimStatus = " & Q1 & "Awaiting Payment" & Q1 & " OR ClaimStatus = " & Q1 & "Awaiting Claim Approval" & Q1

  strSQL = "SELECT * FROM Programs WHERE CDF_ID = " & Q1 & ClaimData(rdx, 1) & Q1

SelString = "SELECT * FROM " & ThisTable
Xjoin = " WHERE "
    SelString = SelString & Xjoin & ctrl.Name & " = " & Q2 & Trim(ctrl.Value) & Q2