Hy all, I am having a difficult time with this code:Private Sub cmdFind_Click()

Dim db As Database
Dim rs As Recordset
Dim SQLString As String

Set db = OpenDatabase("c:\Nwind.mdb")

SQLString = "SELECT Orders.CustomerID, " & _
"Count(Orders.OrderID) " & _
"AS NoOfOrders From Orders GROUP " & _
"BY Orders.CustomerID " & _
"HAVING (((Orders.CustomerID)='" & _
txtCustID.Text & "'))"


Set rs = db.OpenRecordset(SQLString)
txtTotalNumber.Text = rs.Fields("NoOfOrders")

SQLString = "SELECT Orders.CustomerID, " & _
"Last(Orders.OrderDate) " & _
"AS LastOrderDate From Orders GROUP " & _
"BY Orders.CustomerID " & _
"HAVING (((Orders.CustomerID)='" & _
txtCustID.Text & "'))"

>>>>MISMATCH ERROR Set rs = db.OpenRecordset(SQLString)

txtLastDate.Text = rs.Fields("LastOrderDate")
txtLastDate.Text = Format(txtLastDate.Text, "Long Date")

rs.Close
db.Close

End Sub


Can anybody see anything wrong? I keep coming up with a mismatch error.

Thankyou for all your help

James ( the newbie )