Dim dbName(dbcount) As String
For i = 0 To dbCount - 1 'Trying to achieve WHERE Key = ' db & ( i+1) '
Cursor1 = SQL1.ExecNonQuery("SELECT Value FROM Settings WHERE Key = 'db' & '"& (i+1) &"' ")
'Cursor1 = SQL1.ExecNonQuery2("SELECT Value FROM Settings WHERE Key= ?, 'db' & '"& (i + 1) &"' ")
Cursor1.Position = 0
dbName(i) = Cursor1.GetString("Value")
Next