“无效的属性值”

Question

实际上，我使按钮“我的数据中的下一个数据”得到了  DatePicker值。 此代码：

Private Sub lanjut_Click()
Dim lastrow As Long
lastrow = Sheet5.Cells(Rows.Count, 1).End(xlUp).Row

If currentrow = lastrow Then
    MsgBox "Anda sudah berada dibaris terakhir!.", vbInformation, "Message"
    Exit Sub
End If

currentrow = currentrow + 1

nis = Cells(currentrow, 1)
namasiswa = Cells(currentrow, 2) 
jk = Cells(currentrow, 3)
nisn = Cells(currentrow, 4)
tempat_lahir = Cells(currentrow, 5)
tanggal_lahir = Cells(currentrow, 6).Value
nik = Cells(currentrow, 7)
agama = Cells(currentrow, 8)
alamat = Cells(currentrow, 9)
rt = Cells(currentrow, 10)
rw = Cells(currentrow, 11)
dusun = Cells(currentrow, 12)
kelurahan = Cells(currentrow, 13)
kecamatan = Cells(currentrow, 14)
kabupatenkota = Cells(currentrow, 15)
provinsi = Cells(currentrow, 16)
kodepos = Cells(currentrow, 17)
jenis_tinggal = Cells(currentrow, 18)
transportasi = Cells(currentrow, 19)

End Sub

我在代码 tanggal_lahir = Cells（currentrow，6）.Value 中使用DatePicker并运行它，这是错误消息

  

“无效的属性值”

如何解决？谢谢