Sub querycadastra
Private mes As Int
mes = spmes.SelectedIndex +1
fn = "3$#;:)}("
ExecuteRemoteQuery("INSERT INTO usuarios (StatConta, NickName, SocID, SocNet, FirstName, LastName, CompName, Gender, DataNasc, Email, Locale, CamFotoPerfil, Country, City) VALUES ('2', '"&fn&"' , '"&idsocial&"', '"&redesocial&"' , '"&fn&"' , '"&ln&"' , '"&cn&"' , '"&sexo&"' , '" &spano.SelectedItem&"-"&mes&"-"&spdia.SelectedItem& "' , '"&edemail.Text&"' , '"&locale&"' , '"&imgsocial&"' , '"&sppais.SelectedItem&"','"&edcidade.Text&"')" , resultadodocadastro)
End Sub