How Can I Make Conect With Sql Server

In this code, I don´t know what is wrong.

<%

 Set conexao = Server.CreateObject("ADODB.Connection")
 stringconexao = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=username;Password=password;Initial Catalog=GeoSite;sdb=geocontrol;Data Source=128.2.1.158"
' Abro a conexão
 conexao.open(stringconexao)
dim mat
mat=1
   

  sql= "insert into sscusuar(cdmatricu,email) values ('"&mat&"','"&Request.form("cemail")&"')" 
  conexao.execute(sql)
%>

___________________
Edited by moderator SomeNewKid
Removed login credentials.