If you only want to force a internet-connection, this is an easy way:
Sub GPRS_Aufbau
ErrorLabel(ConnectionError)
DoEvents
request.New1("http://www.adress.de") ' init HTML-Object'
request.KeepAlive=True
request.GetResponse
Return
ConnectionError:
End Sub
You don't need an existing internet-adress, because when the adress doesn't exist, the error label catches the error, but the internet-connection is hold on. I have tested ot on several Pocket-PCs, it always works.