Sending multiple SMS using mCore Active x in vb6 and access database

See more:

VB8

VB6

VB

I'm using this to send an SMS using mCore ActiveX Component in VB6. This code is working fine but sometimes it sends a single SMS multiple times (in fact, hundreds of times until I close my application). Please guide me as I'm very familiar with VB6

Public Function SendSMS()

On Error Resume Next

Dim strSendResult As String
Dim ij As Integer
Dim message As String, blnAllMsgsSent As Boolean
Dim message1
Dim id As Integer
blnAllMsgsSent = True

If objSMS.Connect Then

Timer2.Enabled = False
ij = 0
Sql = "SELECT id,message,MobileNo FROM tblSendSMS where status='Pending' order by id asc;"
RS.Open Sql, Conn, adOpenDynamic
If Not RS.EOF Then

RS.MoveFirst
Do While Not RS.EOF

message = RS!message

If RS!message <> "" Then

id = RS!id

'' send message now



strSendResult = objSMS.SendSMS(MobileNo, message)
strSendResult = ""

If objSMS.IsError(True, "Application.exe") Then
blnAllMsgsSent = False
End If

End If

If blnAllMsgsSent Then
Sql = "update tblSendSMS set status='Sent' where id=" & id
Conn.Execute Sql
End If

'' end send
End If
ij = ij + 1
RS.MoveNext

Loop

End If
RS.Close
Else
SetCommParameters
End If
Timer2.Enabled = True


End Function