I require a change the use to another database. Having 3 columns A to C. A required to increment the number by one, ie row 1 to 60 exist the next input to A to auto add next row to 61, then I add info to B & C.

THE CODE BELOW BY JERRY WORKS GREAT

Private Sub cmdFind_Click()
'search for searchText and populate list box with all data found
Dim searchText As String, FirstAddr As String
Dim FoundCell As Range, LastCell As Range, searchRange As Range
Dim i As Long, endRow As Long
Dim foundTarget As Boolean

searchText = Me.txtTarget.Text

If Len(searchText) = 0 Then Exit Sub

Application.ScreenUpdating = False
Range("A1").End(xlDown).Select
endRow = ActiveCell.Row
Range("A1").Select
Application.ScreenUpdating = True

Set searchRange = Range("A2" & endRow)

Me.lstCustSearch.Clear
foundTarget = True

With searchRange
Set LastCell = .Cells(.Cells.Count)
End With

Set FoundCell = searchRange.Find(what:=searchText, after:=LastCell)

If Not FoundCell Is Nothing Then
FirstAddr = FoundCell.Address
Else
foundTarget = False
End If

i = 0
Do Until FoundCell Is Nothing

Me.lstCustSearch.AddItem Cells(FoundCell.Row, 1).Value
Me.lstCustSearch.List(i, 1) = Cells(FoundCell.Row, 2).Value
Me.lstCustSearch.List(i, 2) = Cells(FoundCell.Row, 3).Value
Me.lstCustSearch.List(i, 3) = _
Format(Cells(FoundCell.Row, 4).Value, "$#,##0.00")

Set FoundCell = searchRange.FindNext(after:=FoundCell)
If FoundCell.Address = FirstAddr Then
Exit Do
End If
i = i + 1

Loop

If Not foundTarget Then
MsgBox "No data found for " & searchText
Else
Me.txtTarget.Text = ""
End If

Me.txtTarget.SetFocus

End Sub