Displaying cell contents in user forms

I am currently putting together userform to input records to a data base, adding the new record to the first available row. So far so good. Column A is unique reference field which is currently prenumbered. What I want to do is display the value of this for the current record in a text box on the input userform.



I can't help thinking there is a simple solution but I don't know what it is.



Any help anyone please.

It's hard to answer this without visualizing your data. Where is this current number being stored? Is it in a worksheet? If so, simply set the textbox value equal to the cell in question (see sample code below)

Private Sub UserForm_Initialize()
    Dim LastRow As Long
    Dim CurrentNumber As Long
    
    LastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    CurrentNumber = CLng(Sheet1.Cells(LastRow, 1).Value)
    
    TextBox1.Value = CurrentNumber
End Sub

Let me know if that helps.