got error in wb.navigate plz help me with this

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)
username = "*******"
password = "*******"
from = "******"
wb.Navigate http://203.212.70.200/smpp/sendsms?username=" & username & "&password=" & password & "&to=" & mobileno & "&from=" & from & "&text=" & Message &"