Formdan gelen değeri Cstr ile çevirerek string tipine çevirmek gerekiyor.
İlgili satırları aşağıdaki şekilde değiştirin, çalışacaktır.
myRec.Fields("cinsi") = xlSheet.Cells(i, Cstr(Me.Forms!aktar!cinsi))
myRec.Fields("birimi") = xlSheet.Cells(i, Cstr(Me.Forms!aktar!birimi))