[Resolvido] Sistema em asp e banco de dados access

e ai galera beleza

está dando erro na linha

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado

/sistema/cadastrar cliente/confirmar_vendas_do_vendedor.asp, linha 36

<%

'Recebendo parametros

CodCliente=Request.Form("CodCliente")
RazaoSocial=Request.Form("RazaoSocial")
Fantasia=Request.Form("Fantasia")
CNPJ=Request.Form("CNPJ")
IE=Request.Form("IE")
Tipo=Request.Form("Tipo")
Potencial=Request.Form("Potencial")
Endereco=Request.Form("Endereco")
Complemento=Request.Form("Complemento")
Bairro=Request.Form("Bairro")
Municipio=Request.Form("Municipio")
Cep=Request.Form("Cep")
Estado=Request.Form("Estado")
Telefone=Request.Form("Telefone")
Celular=Request.Form("Celular")
HomePage=Request.Form("HomePage")
Cobranca=Request.Form("Cobranca")
Correio=Request.Form("Correio")
Anotacoes=Request.Form("Anotacoes")

dim conexao
dim strdriver
dim objconexao
dim objrecordset

strconexao="DBQ=c:\sistema\cadastrar cliente\db_vendedor.mdb"
strdriver="Driver={Microsoft Access Driver (*.mdb)}"

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open strconexao & ";" & strdriver

objrecordset.Open "Consulta",objconexao,1,3,2
objrecordset.AddNew
objrecordset.Fields("RazaoSocial")= Request("RazaoSocial")
objrecordset.Fields("Fantasia")= Request("Fantasia")
objrecordset.Fields("CNPJ")= Request("CNPJ")
objrecordset.Fields("IE")= Request("IE")
objrecordset.Fields("Tipo")= Request("Tipo")
objrecordset.Fields("Potencial")=Request("Potencial")
objrecordset.Fields("Endereco")= Request("Endereco")
objrecordset.fields("Complemento")= Request("Complemento")
objrecordset.Fields("Bairro")= Request("Bairro")
objrecordset.Fields("Municipio")= Request("Municipio")
objrecordset.Fields("Cep")= Request("Cep")
objrecordset.Fields("Estado")= Request("Estado")
objrecordset.Fields("Telefone")= Request("Telefone")
objrecordset.Fields("Celular")= Request("Celular")
objrecordset.Fields("HomePage")= Request("HomePage")
objrecordset.Fields("Cobranca")= Request("Cobranca")
objrecordset.Fields("Correio")= Request("Correio")
objrecordset.Fields("Anotacoes")= Request("Anotacoes")
objrecordset.Update
Response.Write "cadastro incluido com sucesso. Codigo nr. " & CodCliente

objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>

<table width="100">
<tr>
<td bgcolor="green"><font color="white">CodCliente</td>
<td bgcolor="white"><%Response.Write(CodCliente)%></td>
</tr>
<tr>
<td bgcolor="green"><font color="white">RazaoSocial</td>
<td bgcolor="white"><%Response.Write(RazaoSocial)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Fantasia</td>
<td bgcolor="white"><%Response.Write(Fantasia)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">CNPJ</td>
<td bgcolor="white"><%Response.Write(CNPJ)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">IE</td>
<td bgcolor="white"><%Response.Write(IE)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Tipo</td>
<td bgcolor="white"><%Response.Write(Tipo)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Potencial</td>
<td bgcolor="white"><%Response.Write(Potencial)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Endereco</td>
<td bgcolor="white"><%Response.Write(Endereco)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Complemento</td>
<td bgcolor="white"><%Response.Write(Complemento)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Bairro</td>
<td bgcolor="white"><%Response.Write(Bairro)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Municipio</td>
<td bgcolor="white"><%Response.Write(Municipio)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Cep</td>
<td bgcolor="white"><%Response.Write(Cep)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Estado</td>
<td bgcolor="white"><%Response.Write(Estado)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Telefone</td>
<td bgcolor="white"><%Response.Write(Telefone)%></td>
</tr>
<tr>
<td bgcolor="green"><font color="white">Celular</td>
<td bgcolor="white"><%Response.Write(Celular)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">HomePage</td>
<td bgcolor="white"><%Response.Write(HomePage)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Cobranca</td>
<td bgcolor="white"><%Response.Write(Cobranca)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Correio</td>
<td bgcolor="white"><%Response.Write(Correio)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Anotacoes</td>
<td bgcolor="white"><%Response.Write(Anotacoes)%></td>
</tr>
<tr>
</table>
<form name="btn1" method="Post" action="consulta_vendedor.asp">
<input type="Submit" name="frm4" value="Consulta >>>">
</form>

alguem sabe como eu faço pra arrumar esse erro