.NET ปุ่ม ค้นหา Search หน้าตาก็ประมาณนี้เเหละ จ้า ช่วยดูด้วยนะจ้า ขอบคุณมากๆๆๆๆ (Win App)

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

        Dim objConn As New OleDbConnection
        Dim objCmd As New OleDbCommand
        Dim dtAdapter As OleDbDataAdapter
        Dim dt As New DataTable
        Dim strConnString, strSQL As String
        Dim directory As String = My.Application.Info.DirectoryPath


        strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & directory & "\database.mdb;Jet OLEDB:Database Password=;"
        objConn.ConnectionString = strConnString
        objConn.Open()

        strSQL = "SELECT * FROM member WHERE Username = '" & Me.txtCode.Text & "' AND Name = '" & Me.txtName.Text & "'  "

        dtAdapter = New OleDbDataAdapter(strSQL, objConn)
        dtAdapter.Fill(dt)

        If dt.Rows.Count > 0 Then
            Me.lblUser.Text = dt.Rows(0)("User")
            Me.lblName.Text = dt.Rows(0)("Name")
            Me.lblEmail.Text = dt.Rows(0)("Email")
        End If

        objConn.Close()
        objConn = Nothing

    End Sub

private void btnSearch_Click(System.Object sender, System.EventArgs e)
{
	OleDbConnection objConn = new OleDbConnection();
	OleDbCommand objCmd = new OleDbCommand();
	OleDbDataAdapter dtAdapter = default(OleDbDataAdapter);
	DataTable dt = new DataTable();
	string strConnString = null;
	string strSQL = null;
	string directory = My.Application.Info.DirectoryPath;


	strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + directory + "\\database.mdb;Jet OLEDB:Database Password=;";
	objConn.ConnectionString = strConnString;
	objConn.Open();

	strSQL = "SELECT * FROM member WHERE Username = '" + this.txtCode.Text + "' AND Name = '" + this.txtName.Text + "'  ";

	dtAdapter = new OleDbDataAdapter(strSQL, objConn);
	dtAdapter.Fill(dt);

	if (Convert.ToInt32(dt.Rows.Count) > 0) {
		this.lblUser.Text = dt.Rows[0]["User"].ToString();
		this.lblName.Text = dt.Rows[0]["Name"].ToString();
		this.lblEmail.Text = dt.Rows[0]["Email"].ToString();
	}

	objConn.Close();
	objConn = null;

}