Syntax Menampilkan Filed Pada TextBox Saat Ketik PrimaryKey

Share adja sedikit berdasarkan request Temen soal bagaimana Menampilkan Field-Field dari table data base saat kita ketik Key pada salahsatu TextBox
yang warna Merah itu Field yang ada d dataBase Table ea,, kecuali "Update" dan sesuaikan dulu nama2 Toolnya ea,,, Misal Button atau TextBoxnya



 On Error Resume Next
        If e.KeyCode = Keys.Enter Then
            Call CekBuku()
            If ObjDataTable2.Rows.Count = 0 Then
                btnhapus.Enabled = False
            Else
                ObjCmd = MyCon.open.CreateCommand
                ObjCmd.CommandText = "select*from tblbuku where kdbuku='" & txtkode.Text & "';"
                ObjDataReader = ObjCmd.ExecuteReader
                ObjDataReader.Read()
                txtjudul.Text = ObjDataReader.Item("judul")
                txttahun.Text = ObjDataReader.Item("tahunterbit")
                txtpenerbit.Text = ObjDataReader.Item("penerbit")
                txtpengarang.Text = ObjDataReader.Item("pengarang")
                MyCon.close()
                btnhapus.Enabled = True
                Btnsimpan.Text = "Update"
            End If
            btnkeluar.Text = "Batal"
            Btnsimpan.Enabled = True
            txtjudul.Focus()
        End If





Private Sub CekBuku()
        Try
            ObjDataTable2.Clear()
            StrSql = "select*from tblbuku where kdbuku='" & txtkode.Text & "';"
            ObjCmd.Connection = MyCon.open
            ObjCmd.CommandType = CommandType.Text
            ObjCmd.CommandText = StrSql
            ObjDataAdapter2 = New SqlDataAdapter(ObjCmd)
            ObjDataAdapter2.Fill(ObjDataSet2, "CekBuku")
            MyCon.close()
            ObjDataTable2 = ObjDataSet2.Tables("CekBuku")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub