in questo caso devi gestire tu il tutto in base a come imputi l'importo.. ora non so come hai strutturato il tutto per richiedere gli importi..
per farti un esempio, se lo imputi uno alla volta allora potresti mettere un inputBox all'interno del ciclo for...

del timpo
For i = 1 To TxtRate
importo=inputBox("Importo per la rata nr." & i)
SQL = "insert into rata (datarata, idcommessa, importo) VALUES ('" & Txtdatarata.Text & " ', '" & Txtidcommessa.Text & " ', '" & importo & "')"
cn.Execute (SQL)
Next