Lo he solucionado... era una tonterilla , pero bueno cuando te trancas no hay como... les dejo el codigo por si a alguien le interesa...
<%
dim cnn,rst
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("./bdwine/Vinos.mdb"))
sqltext = "SELECT * from tabla1 where cepa='"&request.querystring("tipo")&"'"
rst.Open sqltext,cnn,3,3
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="253" style="border: 1 solid #FFFFFF">
<tr>
<td align="center" bgcolor="#ffffff" width="172"></td>
<td align="center" bgcolor="#ffffff" width="172"> </td>
<td align="center" bgcolor="#ffffff" width="251"> </td>
</tr>
<tr>
<td width="1" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Cepa</font></b></td>
<td width="1" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Litros</font></b></td>
<td width="80" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Asignados</font></b></td>
</tr>
<tr>
<td width="1" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF"><font face="Verdana" size="0.8"><%=rst("cepa")%> </font></td>
<%
h = rst("litros")
Do While Not rst.EOF
D = clng(h)
F = rst("litros")
G = clng(f)
total = D + G
total2 = formatnumber(total)
rst.MoveNext
Loop
%>
<td width="1" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF"><font size="1" face="Verdana"><%= total2%></font></td>
<td width="80" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF"> </td>
<%
' rst.Close
'Set rst = Nothing
'cnn.Close
'Set con = Nothing
%>
</tr>
</table>
</center>
</div>
