Hello,

VBA gives an error on the indicated line. "tblparamet ers" is a database which exists.

Code:
Option Compare Database

Option Explicit

Sub fill_parameters()

Dim rstfill As Recordset
Dim DB2 As Database

Set DB2 = CurrentDb
====> Set rstfill = DB2.OpenRecordset("tblparameters")

With rstfill

While
...