Dim Sql As String = "INSERT INTO Firmaer (FirmaNavn, FirmaForkortelse) values ('" & fn & "','" & fk & "')"