need help vlookup text box and date picker

Hi,
Not sure how excatly you want to add date from DTpicker. Change code for DTpicker to this one and picked date will appear in firs empty cell.

Private Sub DTPicker1_Change()
    Dim lRow As Long
    lRow = Sheets("StockDatabase").Cells(Sheets("StockDatabase").Rows.Count, "C").End(xlUp).Row + 1
    Sheets("StockDatabase").Cells(lRow, 3).Value = DTPicker1.Value
End Sub

i try but its not working
can try in my attached file