felmeddelande?

jag har en sida med asp, och när jag kollar på den via PWS så funkar den utmärkt. sen när jag reloadar sidan så får jag ett felmeddelande..

Feltyp:
Provider (0x80004005)
Odefinierat fel
/sida/main.asp, line 12

detta är koden. rad12 är fetmarkerad.

<%
Set Connect = Server.CreateObject("ADODB.Connection")
[b]Connect.Open "db01"[/b]

Set RecSet = Server.CreateObject("ADODB.Recordset")

VISA ="select TOP 3 * From news ORDER BY strID DESC"
RecSet.Open Visa, Connect, adOpenDynamic

Do Until RecSet.EOF

%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><b class="text">- <%=RecSet("strDatum")%> : <%=RecSet("strRubrik")%></b><br>
            <span class="text"><%=RecSet("strMsg")%><br>
            <b><br>
            -<%=RecSet("strNamn")%></b> </span></td>
        </tr>
      </table>
      <br>
      <%
	   Recset.Movenext
	   Loop
	   RecSet.Close
	   %>
      <hr size="1" noshade color="#898A7F">
      <font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>all news:</b><br>

<%
	  VISA ="select * From news ORDER BY strID DESC"
      RecSet.Open Visa, Connect, adOpenDynamic
	  Do Until RecSet.EOF
%>

      <a href="view.asp?ID=<%=RecSet("strID")%>"><%=RecSet("strDatum")%></a> :: <%=RecSet("strNamn")%> - <%=RecSet("strRubrik")%><br>
	  <%
	   RecSet.movenext
	   Loop
	   Recset.Close
	   Connect.Close
%>

hoppas nån vet felet.