hey there,

Here's my complete code for a delete button that deletes a record in a Hierarchical Flex Grid.

Code:
    Dim rsTour As New ADODB.Recordset
    Dim cn As New ADODB.Connection
    Dim strSQL As String
    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & App.Path & "\Luckshan Tours & Travels.mdb;" & _
    "Persist Security Info:False"
    cn.Open
    msg = MsgBox("Delete Record?", vbYesNo)
    If msg = vbYes Then
    strSQL = "Delete From Tour Where [Tour ID] = '" & fgdTour.TextMatrix(fgdTour.Row, 1) & "'"
    cn.Execute strSQL
    strSQL = "Select * From Tour"
    rsTour.Open strSQL, cn, adOpenStatic, adLockPessimistic
    Set fgdTour.DataSource = rsTour
    End If
    Set fgdTour.DataSource = rsTour
    If rsTour.RecordCount <> 0 Then
    rsTour.Update
    End If
The code works great for two of my forms, but for the other two it doesn't. It gives me an error saying "Data type mismatch in criteria expression" and highlights the statement :

Code:
cn.Execute strSQL
Please help.... I've gone over and over the code for errors but could find none, I mean it works perfectly for the other two forms.