'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