ช่วยดู code นี้ให้ผมหน่อยครับ คือว่าจะทำปุ่มค้นหาครับแต่พอกรอกตัวเลข code ให้มันค้นหามันมาติดตรง txtCode.Text = dr.Item("Code").ToString

Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
	Dim code As String = InputBox("กรุณากรอกรหัสที่ต้องการค้นหา")

	If HasData(code) Then
		Dim Dr As DataRow = GetData(code).Rows(0)

		txtCode.Text = Dr("Code").ToString()
		txtFname.Text = Dr("Fname").ToString()
		txtLname.Text = Dr("Lname").ToString()

		MessageBox.Show("แสดงข้อมูลแล้ว")
	Else
		MessageBox.Show("ไม่พบข้อมูล")
	End If
End Sub

Private Function GetData(codeString As String) As DataTable
	Dim connString As String = "connection string."
	Dim conn As New OleDbConnection(connString)

	Dim commString As String = "Select * From [student] Where [Code]=@code"
	Dim comm As New OleDbCommand(commString, conn)
	comm.Parameters.AddWithValue("@code", codeString)

	Dim Dt As New DataTable()

	Try
		Dim dataAdapter As New OleDbDataAdapter()
		dataAdapter.SelectCommand = comm
		dataAdapter.Fill(Dt)
	Catch ex As Exception
		MessageBox.Show(String.Format("error: {0}", ex.Message))

		Return Nothing
	End Try

	Return Dt
End Function

Private Function HasData(codeString As String) As Boolean
	Dim connString As String = "connection string."
	Dim conn As New OleDbConnection(connString)

	Dim commString As String = "Select Count(*) From [student] Where [Code]=@code"
	Dim comm As New OleDbCommand(commString, conn)
	comm.Parameters.AddWithValue("@code", codeString)

	Dim result As Integer = 0

	Try
		conn.Open()
		result = CInt(comm.ExecuteScalar())
		conn.Close()
	Catch ex As Exception
		MessageBox.Show(String.Format("error: {0}", ex.Message))
	End Try

	Return If((result > 0), True, False)
End Function