Me deem uma forca

entao pessoal tenho esse codigo que funcionava normal ai deu alguns erros com a coenxao ADO entao parti pra DSN e ai agora ta dando outro erro:

Sera q alguem pode me ajudar?

Microsoft JET Database Engine error '80040e10'

Não foi fornecido um valor para um ou mais dos parâmetros exigidos

/CONTROLE/frminsere.asp, line 39

<% Option Explicit %><%session.LCID=1046dim strconn, conn, rs, rs2, rs3, Strsql, sql, dbfiledim Terceira, Horario, Data, nligacao, ligacao, Chorario, tipoTerceira = request.Form("terceiras")Horario = request.Form("horario")tipo = request.Form("tipo")Data = date()ligacao=1select case horariocase 1horario="08:00/12:00"case 2horario="12:00/16:00"case 3horario="16:00/19:00"end select dbfile = Server.MapPath("controle2.mdb") Set Conn = Server.CreateObject("adodb.connection") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbfile &";Persist Security Info=False" Conn.Open(strConn) set rs = Server.CreateObject("ADODB.recordset") set rs.activeconnection = conn rs.cursortype = 3   Strsql = "SELECT * FROM tbcontrole WHERE Terceiras='" & Terceira & "' and horario = '" & horario & "' and data=#" & Data & "#" sql = "Insert Into tbcontrole (terceiras, horario, data, tipo, ligacoes) " sql = sql & " Values ('" & Terceira & "', '" & horario & "', #" & Data & "#,'" & tipo & "', " & ligacao & ")"linha 39 aqui->  rs.open Strsql, conn   if rs.eof then  set rs3=conn.execute(sql)  Response.Redirect("frmcontrole.asp") else  nligacao = rs("ligacoes")  set rs2=conn.execute("update tbcontrole set ligacoes = " & nligacao +1 & " WHERE Terceiras='"&Terceira&"' and horario = '"&CHorario&"' and data=#"&Data&"#")  Response.Redirect("frmcontrole.asp")   end if conn.close rs.close set conn=nothing set rs=nothing %>