Heres the code below. Im using ms visual studio 2010 and ms access database.
Private Sub SelectIssueBook(ByVal Name As String)
' QUERY Issue BOOK
Access.AddParam("@issue", Name)
Access.ExecQuery("SELECT Issue_No, Status, First_Name, Last_Name, MI, Year_Section, Book_Title, Borrow_Date FROM db_Issue WHERE First_Name=@issue ")
' REPORT & ABORT ON ERRORS OR NO RECORDS FOUND
If Not String.IsNullOrEmpty(True) = False OrElse Access.RecordCount < 1 Then Exit Sub
' GET FIRST ROW FOUND
Dim R As DataRow = Access.DBDT.Rows(0)
' POPULATE TEXTBOXES WITH DATA
IssueNo.Text = R("Issue_No").ToString
Status.Text = R("Status").ToString
FirstName.Text = R("First_Name").ToString
LastName.Text = R("Last_Name").ToString
MI.Text = R("MI").ToString
YearSection.Text = R("Year_Section").ToString
BookTitle.Text = R("Book_Title").ToString
DateTimePicker1.Value = R("Borrow_Date").ToString
' ENABLE DELETE
BtnDelete.Enabled = True
End Sub