Bueno lo anterior me funciono y cambie de usuarios y al ejecutar me tira un error acontinuacion expongo el codigo de la pagina que lista los registros para ver si encuentran el error y me puedan ayudar.
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Listado de Proyectos</TITLE>
</HEAD>
<BODY>
<%
Dim Strcon
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=jahman;UID=sa;PWD=;DATABASE=Proyectos"
Set rs = Server.CreateObject ("ADODB.RecordSet")
sSQL = "SELECT * FROM Proyecto"
rs.Open sSQL, oConn, 3, 3
If rs.EOF And rs.BOF Then
Response.Write "No hay Registros."
Else
oConn.MoveFirst%>
<h2><b> <font color="#1F45CB"><i>Proyectos Registrados.</i></font></b></h2>
<center>
<TABLE border='1' bgcolor='#CECECE'>
<tr bgcolor='#003399'>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Código Proyecto</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Código Persona</font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Código Cliente</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Nombre Proyecto</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Fecha Inicio</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Fecha Término</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Descripción</b></font></td>
</tr>
<%
While Not oConn.EOF %>
<tr>
<td><font color="#AA2E17"><%Response.Write oConn.Fields ("CodProyecto") %></font></td>
<td><font color="#AA2E17"><%Response.Write oConn.Fields ("Persona") %></font></td>
<td><font color="#AA2E17"><%Response.Write oConn.Fields ("Cliente") %></font></td>
<td><%Response.Write oConn.Fields ("NomProyecto") %></td>
<td><%Response.Write oConn.Fields ("FechaInEstimada")%></td>
<td><%Response.Write oConn.Fields ("FechaFinEstimada")%></td>
<td><%Response.Write oConn.Fields ("Descripcion") %></td>
</tr>
<%oConn.MoveNext
Wend
oConn.close
End If
%>
<table> <br><br>
</BODY>
y este es el error que me sale
Proveedor de Microsoft OLE DB para SQL Server error '80040e14'
No se encontró el procedimiento almacenado 'MoveFirst'.
/taller/web/listar.asp, line 20
Gracias Jah Bless.