Edit 5f Codes
'declare rs As Recordset Object ,con As Connection Object
'rs.Open "SELECT Book_Name,Book_Number FROM tbl_name WHERE Book_Name='VB Programer'",con
'Text1.Text=rs.Fields("Book_Name").Value 'show Book_Name Data
'Text2.Text=rs.Fields("Book_Number").Value 'show Book_Number data