Dim strSQL As String
Dim strName As String
Dim strNames As String
Try
strName =Rsms.Text
strNames =Rsms2.Text
If strName = "no filter" Then
MsgboxAsync("Please select a Name to delete", "E R R O R")
Return
End If
strSQL = "DELETE FROM SMSlist WHERE sms = ? AND Datesent = ?"
Starter.SQL1.ExecNonQuery2(strSQL, Array As Object(strName), strNames)
InitSpinners
Catch
Log(LastException)
End Try