Sorry man the first line should be
Public Sub Connect(sDrive As String, sService As String, Optional sPassword As String = "")

If I put in
Connect ("z:", "\\reception\backup\", "") it says "Compile Error expected ="