Delete dataset from database using VBA

 Dim cnn As New ADODB.Connection
 Dim rst As New ADODB.Recordset
 Dim DatasetID As Integer
 cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=C:\CovBonds\CB.mdb"
    Dim strRange As String
 strRange = "SELECT * FROM dbo_tblCoveredBonds Where [cboExistingCoveredBondProgram] = '" & cboExistingCoveredBondProgram & "' AND [cboCoveredBondType] = '" & cboCoveredBondType & "' AND [cboCoveredBondSubType] = '" & cboCoveredBondSubType & "' AND [cboReportingDate] = #" & VBA.Format(cboReportingDate, "mm/dd/yyyy") & "#;"
        rst.Open strRange, _
                  cnn, adOpenDynamic, adLockOptimistic
        If rst.RecordCount <> 0 Then
        DatasetID = rst![ProgramID].Value
        rst.Delete
        Else
        MsgBox "This dataset is not in database."
        Exit Sub
        End If
        Set rst = Nothing