Dim a As Database - Вот этот тип не понимает
Dim w As Recordset
Dim dbname As String
Dim s As String
Dim fsrc As String
Dim fdisk As String
Dim stinc As String
Set fsrc =  "c:\inc.html" 
Set fdisk =  "c:\inc2.html" 
Set stinc =  "<include>" 

Open fsrc For Input As # 1 
Open fdisk For Output As # 1 
If stinc =  "<include>"  Then dbname  "zp1" 
Set a = CurrentDb
Set w = a.Openrecordset(dbname, dbopendynaset)
Do While Not EOF( 1 )
Input # 1 , s
If InStr( 1 , s, stinc) =  0  Then
Print # 2 , s
Else
w.MoveFirst

While Not w.EOF
If stinc =  "<include>"  Then
Print # 2 ,  "<br>| " ; w.id;  " | " ; w.Name;  " | " ; w.price;  " |<br>" 
w.MoveNext
End If
Wend

End If
Loop
w.Close
a.Close
Close # 1 
Close # 2