Which you need is to read from Patients table by lstnames selected value and pass others fields value to textboxes
'Create Connection from connectionString
Dim objConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\Hospital.mdb;")
'Create a command
Dim objCommand As New OleDbCommand("Select [Patient Name],[Ward],[Notes] From Patients Where PatientID ='" & lstNames.SelectedValue & "'", objConnection)
Dim reader As OleDbDataReader
'Open connection
objConnection.open()
'Execute query
reader = command.ExecuteReader()
' Always call Read before accessing data.
While reader.Read()
txtName.Text=reader.GetValue(0)
txtWard.Text = reader.GetValue(1)
txtNotes.Text = reader.GetValue(2)
End While
reader.close
For more documentation please read
MSDN Documentation - OleDbDataReader.Read Method