Try:
dataAdapter = New OleDbDataAdapter("SELECT [FirstName] + ' ' + [LastName] AS FullName from [Personnel] where [Status] = 'Activated' ", connection)
dataAdapter.Fill(ds, "Personnel")
Dim view1 As New DataView(tables(0))
With personnelList
.DataSource = ds.Tables("Personnel")
.DisplayMember = "FullName"