help me with my sms engine

Option Explicit
Dim i As Integer
Dim Csql As String
Dim Vitem As String
Dim Vsrno As Integer

Dim sms_Engine_flg As Boolean
Dim sms_timer_flg As Boolean
Dim rs As New ADODB.Recordset

Private Sub autosms_Click()

End Sub

Private Sub Cmdstart_Click()
Dim user_id As String
Dim pwd As String
Dim SID As String
Dim i As Integer

On Error GoTo ErrProc

sms_timer_flg = True
sms_Engine_flg = True

Vitem = "SMS Engine start at" + " " + Trim(Now)

MSF1.AddItem (Vitem)

Csql = "select * from SMS_CONFIG"
Set rs = CnnGlobal.Execute(Csql)
If Not rs.EOF Then
user_id = rs.Fields("user_id").Value
pwd = rs.Fields("password").Value
SID = rs.Fields("sender_id").Value

i = autoSMS.of_init(user_id, pwd, SID)
End If

rs.Close
Set rs = Nothing

Cmdstart.Enabled = False
Cmdstop.Enabled = True
Exit Sub

ErrProc:
MsgBox "Error in Cmdstart_Click procedure: " & Err.Description & " No: " & Err.Number
End Sub

Private Sub Cmdstop_Click()
On Error GoTo ErrProc

sms_timer_flg = False
sms_Engine_flg = False
Cmdstart.Enabled = True

Vitem = "SMS Engine stop at" + " " + Trim(Now)

MSF1.AddItem (Vitem)
Cmdstop.Enabled = False
Exit Sub

ErrProc:
MsgBox "Error in Cmdstop_Click procedure: " & Err.Description & " No: " & Err.Number
End Sub

Private Sub Form_Load()
Dim user_id As String
Dim pwd As String
Dim SID As String
Dim i As Integer

On Error GoTo ErrProc

Call SetMSF

tmevent.Enabled = True
Tmengine.Enabled = True

Cmdstart.Enabled = False
Cmdstop.Enabled = True

sms_timer_flg = True
sms_Engine_flg = True

tmevent.Interval = 60000
Tmengine.Interval = 40000

Vitem = "SMS Engine start at" + " " + Trim(Now)
MSF1.AddItem (Vitem)

Csql = "select * from SMS_CONFIG"
Set rs = CnnGlobal.Execute(Csql)
If Not rs.EOF Then
user_id = rs.Fields("user_id").Value
pwd = rs.Fields("password").Value
SID = rs.Fields("sender_id").Value

i = autoSMS.of_init(user_id, pwd, SID)
End If

rs.Close
Set rs = Nothing

Exit Sub
ErrProc:
MsgBox "Error in Form_Load: " & Err.Description & " No: " & Err.Number
End Sub

Private Sub Form_Unload(Cancel As Integer)
sms_timer_flg = False
sms_Engine_flg = False
tmevent.Enabled = False
Tmengine.Enabled = False
Unload Me
End Sub


Private Sub SetMSF()
Dim i As Integer
MSF1.Rows = 1
MSF1.Cols = 1
MSF1.Redraw = False

i = 0
MSF1.TextMatrix(0, i) = "Activity"
MSF1.ColWidth(i) = 6000
Vsrno = i

MSF1.Redraw = True
Call MFlexLook(MSF1, MSF1.Cols)
End Sub

Private Sub Tmengine_Timer()
Dim oldstring As String, newletter As String, oldletter As String, newstring As String
Dim mobileno As String, Message As String
' -------------------------------------------SMS Engine ---------------------------------------------------------

If sms_Engine_flg = True Then

Csql = "select * from SMS_LOG a,SMS_EVENT b where a.event_id= b.event_id and status='P' order by a.event_time"
rs.Open Csql, CnnGlobal, adOpenKeyset, adLockReadOnly
If Not rs.EOF Then

mobileno = rs.Fields("receiver_nos").Value
'mobileno = "09820554587"
oldstring = rs.Fields("event_msg").Value
newletter = "%20"
oldletter = " "
newstring = ReplaceSMS(oldstring, newletter, oldletter)
newletter = "and"
oldletter = "&"
Message = ReplaceSMS(newstring, newletter, oldletter)

i = autoSMS.of_sendSMS(Message, mobileno)

Vitem = "SMS send for " + Trim(rs.Fields("event_description").Value) + " at " + Trim(Now)

MSF1.AddItem (Vitem)

Csql = " update SMS_LOG set status = 'D' where Id = '" & Trim(rs.Fields("Id").Value) & "' "
CnnGlobal.Execute Csql

End If
rs.Close
Set rs = Nothing
End If

End Sub


usercontrol autoSMS

Dim is_user As String
Dim is_pwd As String
Dim is_sender As String

Public Function of_init(as_user As String, as_pwd As String, as_sender As String)
is_user = as_user
is_pwd = as_pwd
is_sender = as_sender

End Function

Public Function of_sendSMS(as_msg As String, as_recv_no As String)


WebBrowser.Navigate "http://203.212.70.200/smpp/sendsms?username=" & is_user & "&password=" & is_pwd & "&to=" & as_recv_no & "&from=" & is_sender & "&text=" & as_msg

End Function