Các đối tượng truy cập dữ liệu

Lập trình với đối tượng

Để sử dụng tốt các đối tượng của DAO bạn phải hiểu căn bản về đối tượng. Tất cả đối tượng bao gồm các phần tử sau:

• Các thuộc tính: là những dữ liệu gắn liền với đối tượng gồm 1 kiểu dữ liệu chuẩn (như interger, string..) hay 1 tập hợp đối tượng trong nó. Ví dụ : Recordset chứa trong nó là tập hợp Fields.
• Các phương thức : là các hành động mà đối tượng có thể thi hành. Chúng có thể hoạt động như các hàm ( trả về dữ liệu ) hay các thủ tục con
• Các sự kiện: là các thông điệp mà đối tượng có thể gửi đến các ứng dụng đang sử dụng đối tượng. DAO cũng có các sự kiện riêng.

Sử dụng điều khiển DAO Data

Ta có thể sử dụng điều khiển DAO data để kết nối với một cơ sở dữ liệu Jet của Microsoft. Mặc dù với sự xuất hiện của điều khiển mạnh hơn, ADO Data, việc sử dụng điều khiển DAO Data bị giảm bớt, nhưng vẫn tồn tại lý do để sử dụng điều khiển cổ điển DAO data. Ngoài ra, nó còn có khả năng kết nối với các nguồn dữ liệu như các tập tin dBASE, văn bản, bảng tính Excel mà không cần phải dùng ODBC (nối kết cơ sở dữ liệu mở).

Sử dụng thuộc tính Connect của điều khiển DAO Data để truy cập nguồn dữ liệu bên ngoài

Thuộc tính Connectxác định loại cơ sở dữ liệu kết nối đền điều khiển Data.Theo mặc định, thuộc tính này được chỉ định là Microsoft Access., nhưng ta có thể sửa đổi chỉ định này nếu ta muốn kết nối với một kiểu dữ liệu không phải Access. Các kiểu dữ liệu này được gọi là các kiểu dữ liệu bên ngoài.

Jet hỗ trợ các kiểu cơ sở dữ liệu trên máy tính cá nhân sau đây:

• dBASE III,IV và 5.0
• Phiên bản Excel 3.0, 4.0, 5.0 và 8.0
• Phiên bản Foxpro 2.0, 2.5, 2.6 và 3.0
• Lotus spreadsheet với định dạng WK1, WK3 và WK4.
• Phiên bản Paradox 3.x, 4.x và 5.x
• Tập tin văn bản ASCII có phân cách.

Dùng đối tượng DataBase để kết nối với một CSDL

Đối tượng Databaselà nơi để ứng dụng bắt đầu phần lớn các truy cập cơ sở dữ liệu của nó. Để dùng đối tượng Database,ta bắt đầu lập tham chiếu đến Microsoft DAOs trong menu ProjectReferences của Visual Basic .. Điều này sẽ cho phép ứng dụng tăng cường truy cập đến mọi đối tượng do DAO cung cấp.

Để thực hiện điều này, ta theo các bước sau:

1. Từ menu Project,chọn References.
2. Hộp thoại References xuất hiện. Từ danh sách các thư viện, chọn vào hộp đánh dấu “Microsoft DAO 3.5.1 Object Library”.
3. Nhấn OK. Giờ đây, ta có thể dùng đối tượng được cung cấp bởi thư viện đối tượng DAO.

Bước kế tiếp là khai báo một biến đối tượng cơ sở dữ liệu trong chương trình :

Dim db As Database

Nếu ứng dụng được thiết kế để làm việc với một cơ sở dữ liệu duy nhất, tốt nhất ta nên khai báo biến Databaseở mức mô-dun của biểu mẫu chính của ứng dụng.

Nếu nhiều biểu mẫu ứng dụng cần truy cập đến một cơ sở dữ liệu, ta nên tạo một lớp quản lý kết nối đến cơ sở dữ liệu.

Dim db As Database

Set db = OpenDatabase("....DB
ovelty.mdb")

Msgbox "The database " & db.Name & "is now open."

OpenDatabase(dbName, [options], [readonly],[connect])

Sử dụng đối tượng Recordset

Ta sử dụng đối tượng Recordsetđể thao tác với các mẩu tin trong DAO. Đối tượng Recordsetcung cấp một giao diện hướng đối tượng cho mô hình cơ sở dữ liệu quan hệ liên quan đến các bảng được chia thành những mẩu tin và trường.

Để tạo một recordset, ta chủ yêu sử dụng phương thức OpenRecordset.

Dim db As Database

Dim rs As Recordset

Set db = OpenDatabase("....db
ovelty.mdb") Set rs = db.OpenRecordset("tblCustomer")

Dim rs As Recordset

Set db = OpenDatabase("....db
ovelty.mdb")

Set rs = db.OpenRecordset("SELECT * FROM tblCustomer" &_

" Order By [LastName]")

SELECT * FROM tblCustomer WHERE [LastName]="Smith"

Dim db As Database

Dim rs As Recordset

Set db = OpenDatabase("....db
ovelty.mdb")

Set rs = db.OpenRecordset("SELECT * FROM tblCustomer" & _

" WHERE [LastName]='Smith'")

Dim db As Database

Dim rs As Recordset

Set db = OpenDatabase("....db
ovelty.mdb")

Set rs = db.OpenRecordset("SELECT * FROM tblCustomer" & _

" WHERE [LastName]='" & txtLastName.Text &"'")

Chỉ ra các tuỳ chọn cho Recordset

Tham số Options của phương thức OpenRecordset xác định một số cách thức thao tác với mẩu tin.

Sử dụng BOF và EOF để duyệt qua Recordset

Ngoài các phương thức trên, đối tượng Recordsetcung cấp 2 thuộc tính cho ta biết khi ta di chuyển về đầu hoặc về cuối recordset.

• Thuộc tính EOF(endoffile) là True khi ta di chuyển quá mẩu tin cuối cùng của recordset.
• Thuộc tính BOF(beginoffile) là True khi ta di chuyển đến một vị trí trước mẩu tin thứ nhất trong recordset.

Do until EOF

‘perform action on the data or read values from fields rs.MoveNext

Loop

Dùng BOF và EOF để xác định một Recordset có rỗng hay không

Thuộc tính BOF và EOF luôn có sẵn, thậm chí trong một recordset không có mẩu tin. Trên thực tế, cách tốt nhất để xem recordsetcó chứa mẩu tin hay không là kiểm tra giá trị của cả hai thuộc tính EOF và BOF. Nếu cả BOF và EOF đều là True, recordsetkhông chứa mẩu tin.

Dùng thuộc tính RecordCout để xác định số mẩu tin trong một recordset

Ta dùng thuộc tính RecordCount để xác định số mẩu tin trong một recordset. Nhưng lưu ý rằng giá trị của RecordCount sẽ không hợp lệ nếu ta chưa chuyển đến mẩu tin cuối cùng trong Recordset.

Bởi vì Jet xử lý truy vấn trên 2 giai đoạn. Giai đoạn đầu chỉ trả về dữ liệu đủ cho ứng dụng hoạt động mà không bị chậm trễ trong xử lý. Giai đoạn thứ hai thi hành bên dưới, trả về toàn bộ dữ liệu yêu cầu để truy vấn hoàn chỉnh. Jet thực hiện điều này chỉ nhằm mục tiêu tăng khả năng hoạt động, vì vậy, việc thi hành ứng dụng không bị cản trở trong khi chờ trả về một khối lượng dữ liệu lớn. Ta không điều khiển trực tiếp quá trình này, nhưng ta cần biết rằng nó tồn tại và cách thức làm việc với nó khi ta muốn biết chính xác có bao nhiêu mẩu tin đang có trong một recordset chẳng hạn.

Option Explicit
' References: Microsoft DAO 3.51 Object Library
    Dim db As Database
    Private Sub Form_Load()
    Set db = OpenDatabase("....db
ovelty.mdb") End Sub
    Private Sub cmdCount_click() Dim rs As Recordset
    Set rs = db.OpenRecordset("tblInventory")
    rs.MoveLast
    
    MsgBox "There are " & rs.RecordCount & _
    " items in inventory.", vbInformation
    End Sub
    

Dùng phương thức Edit để sửa đổi giá trị trong một mẩu tin

Ta có thể sửa đổi mâu tin hiện hành trong một đối tượng Recordsetcập nhật được bằng cách dùng phương thức Edit và Updatecủa recordset. muống sửa đổi giá trị của một trường trong một Recordset,theo các bước sau :

1. Dùng các phương thức duyệt của đối tượng Recordset để di chuyển đến mẩu tin cần sửa đổi.
2. Thi hành phương thức Edit của recordset.
3. Dùng tập hợp Fieldscủa đối tượng Recordsetđể gán giá trị cho trường trong mẩu tin :

   rs.Fields("LastName")= "Smith"

   rs!LastName = "Smith"

4. Lưu mẩu tin vào cơ sở dữ liệu bằng cách dùng phương thức Update của Recordset.

Sử dụng phương thức AddNew và Update để tạo mẩu tin mới

Ta có thể tạo một mẩu tin mới trong đối tượng Recordsetcập nhật được bất kỳ bằng cách dùng phương thức AddNew và Update. Tạo một mẩu tin mới trong một recordsetlà quá trình 3 bước:

1. Thi hành phương thức AddNew của RecordSet. Nó thêm một mẩu tin mới, trắng vào cuối của recordset.
2. Gán giá trị cho mẩu tin mới bằng cách sử dụng câu lệnh gán mà ta thường dùng với các trường cơ sở dữ liệu.
3. Dùng phương thức Update để ghi mẩu tin vào cơ sở dữ liệu.

Option Explicit
    ' References: Microsoft DAO 3.51 Object Library
    Private Enum TextBoxes txtProduct = 0 txtCatalogNumber = 1 txtWholesalePrice = 2 txtRetailPrice = 3
    End Enum
    Private db As Database Private rs As Recordset Private x As Integer Private Sub Form_Load()
    Set db = OpenDatabase("....DB
ovelty.mdb") Set rs = db.OpenRecordset("tblInventory")
    For x = txtProduct To txtRetailPrice
    TextBox(x).Enabled = False
    Next x
    cmdSave.Enabled = False cmdNew.Enabled = True End Sub
    Private Sub cmdNew_Click()
    ' Create a new record rs.AddNew
    ' Enable data entry controls
    For x = txtProduct To txtRetailPrice
    TextBox(x).Enabled = True Next x TextBox(txtProduct).SetFocus cmdSave.Enabled = True cmdNew.Enabled = False
    End Sub
    Private Sub cmdSave_Click()
    ' Map UI controls to fields rs.Fields("Product") = TextBox(txtProduct)
    rs.Fields("CatalogNumber") = TextBox(txtCatalogNumber) rs.Fields("WholesalePrice") = TextBox(txtWholesalePrice) rs.Fields("RetailPrice") = TextBox(txtRetailPrice)
    ' Commit data to database rs.Update
    ' Clear out UI
    For x = txtProduct To txtRetailPrice TextBox(x).Text = "" TextBox(x).Enabled = False
    Next x
    cmdSave.Enabled = False cmdNew.Enabled = True
    End Sub
    

Sử dụng AppendChunk để nối dữ liệu vào một trường nhị phân

Ta có thể chứa dữ liệu nhị phân vào trong cơ sở dữ liệu. Dữ liệu nhị phân bao gồm hình ảnh hay tập tin âm thanh – nghĩa là bất kỳ những gì ta muốn chứa không chỉ là giá trị số hay chuỗi ký tự.

Khi ta gán một giá trị cho trường nhị phân trong chương trình, ta cần thi hành một số bước bổ sung để lấy dữ liệu trong trường. Bởi vì dữ liệu nhị phân không có chiều dài cố định như các kiểu dữ liệu khác; một mẩu dữ liệu nhị phân có thể lên đến hàng mega- byte hoặc hơn.

Vì vậy, để đặt một mẩu dữ liệu nhị phân trong cơ sở dữ liệu, trước hết ta phải chia nó thành nhiều đoạn dữ liệu nhị phân, ta nối nó vào trường bằng cách dùng phương thức AppendChunkcủa đối tượng Fieldcủa recordset.

Sử dụng phương thức Close để đóng Recordset

Ta thực hiện điều này khi chương trình hoàn tất sử dụng đối tượng Recordset:

rs.Close

Điểm đặc biệt quan trọng khi đóng một đối tượng Recordsetlà nếu đối tượng đặt một khoá (lock) trên bảng . Đóng một Recordsetsẽ nhả khoá ứng dụng thiết lập trên đối tượng cơ sở dữ liệu, cho phép người sử dụng khác truy cập đến nó.

Lưu ý rằng trong DAO,Workspace, Connection, Database và QueryDef đều có phương thức Close

Sử dụng phương thức Find để định vị mẩu tin trong một recordset

Để tìm một mẩu tin trong một Recordset, ta dùng một trong bốn phương thức tìm kiếm của đối tượng Recordset :

• FindFirst
• FindLast
• FindNext
• FindPrevious

Cú pháp của bốn phương thức như nhau - để sử dụng một trong bốn phương thức tìm kiếm này, ta truyền một mệnh đề WHERE của SQL vào phương thức chỉ ra thông tin ta cần tìm kiếm. Sau khi thi hành phương thức, mẩu tin hiện hành trong đối tượng Recordsettrở thành mẩu tin thoả mãn tiêu chí WHERE. Nếu tìm kiếm không định vị được mẩu tin yêu cầu, thuộc tính NoMatchcủa đối tượng Recordsetcó giá trị là True.

Loại phương thức ta dùng cũng xác định cách thức tìm thấy mẩu tin. Ví dụ, nếu dùng FindFirst, bộ máy cơ sở dữ liệu sẽ di chuyển đến mẩu tin thứ nhất trong recordset thoả tiêu chí. FindNext và FindPrevious, ngược lại, tìm các mẩu tin hiện hành.

Điểm quan trọng cần lưu ý là, khác với một câu truy vấn SELECT của SQL, tìm kiếm không sinh ra một recordset. Khi bộ máy cơ sở dữ liệu tìm ra mẩu tin thoả tiêu chí tìm kiếm, nó di chuyển đến mẩu tin đó; mẩu tin trở thành mẩu tin hiện hành. Nếu không có mẩu tin tìm thấy, mẩu tin hiện hành sẽ được giữ nguyên và thuộc tính NoMatch của đối tượng Recordsetcó giá trị là True.

Sử dụng phương thức Seek để thi hành tìm kiếm theo chỉ mục

Để tiến hành một tìm kiếm trên một chỉ mục, trước hết bảng phải có một chỉ mục.

Ví dụ sau đây, giả định rằng ta có một bảng tblCustomer với một chỉ mục trên trường LastName. Tên của chỉ mục là LastNameIndex.

Option Explicit
    ' References MS DAO 3.51 Object Library
    Private db As Database Private rs As Recordset Private Sub Form_Load()
    Set db = OpenDatabase("....db
ovelty.mdb")
    Set rs = db.OpenRecordset("tblCustomer", dbOpenTable) End Sub
    Private Sub cmdSeek_Click() rs.Index = "LastNameIndex" rs.Seek "=", txtLastName.Text If rs.NoMatch Then
    ' not found
    MsgBox "No customer by that name was found.", vbExclamation
    Else
    ' return info
    MsgBox rs!Address & vbCrLf & _ rs!City & ", " & rs!State & " " & _ rs!Zip & vbCrLf & _
    rs!Phone, _
    vbInformation, _
    rs!FirstName & " " & rs!LastName
    End If
    End Sub
    

Điểm hạn chế của phương thức Seek là khả năng tìm kiếm trên một trường duy nhất và nó phải được đánh chỉ mục. Ngoài ra nó chỉ sử dụng các toán tử sau : >;<;>=;<=;=

Khác với phương thức Seek , vốn hạn chế thì phương thức Find cho phép ta sử dụng các toán tử có sẵn của SQL như Like , in .

Lặp qua suốt tập hợp Indexes của TableDef

Để xác định các chỉ mục tồn tại trong một bảng, ta có thể lặp qua suốt tập hợp Indexes của đối tượng TableDef.

Option Explicit
    ' References MS DAO 3.51 Object Library
    Private db As Database Private rs As Recordset Private Sub Form_Load()
    Set db = OpenDatabase("....db
ovelty.mdb") End Sub
    Private Sub cmdShowIndexes_Click() Dim td As TableDef
    Dim ind As Index
    Dim f As Field
    Set td = db.TableDefs("tblCustomer") For Each ind In td.Indexes
    Debug.Print ind.Name
    For Each f In ind.Fields
    Debug.Print " On field: " & f.Name
    Next Next End Sub
    

Sử dụng thuộc tính Bookmark để ghi nhớ vị trí trong một Recordset

Khi ta tiến hành các tác vụ trên một đối tượng Recordset,ta thường di chuyển đây đó trong recordset. Dùng thuộc tính Bookmarkcủa đối tượng Recordsetđể giữ lại một vị trí sao cho ta có thể quay lại ví trí đó sau này.

Thuộc tính Bookmarkcho ta một cách hiệu quả di chuyển giữa hai hay nhiều mẩu tin. Sử dụng bookmark thì nhanh hơn là lặp đi lặp lại phương thức Findđể di chuyển qua từng mẩu tin.

Mỗi mẩu tin trong một recordsetcó thể đánh dấu bookmarkđược có một số hiệu bookmark duy nhất để ta có thể đọc ra hay ghi vào tại một thời điểm bất kỳ. Tuy nhiên, bookmarkkhông được chứa trong cơ sở dữ liệu; nó được phát sinh tự động khi một đối tượng recordsetđược tạo và bị huỷ bỏ khi đối tượng recordsetbị huỷ.

Để sử dụng bookmark,ta theo các bước sau:

1. Di chuyển đến vị trí trong recordsetta muốn đánh dấu bookmark.
2. Để gán giá trị thuộc tính bookmark của đối tượng Recordset cho một biến chuỗi. Nó sẽ lưu bookmarkduy nhất cho mẩu tin hiện hành.
3. Khi ta muốn quay lại mẩu tin, đổi thuộc tính Bookmarkcủa recordsetlà giá trị của biến chuỗi. Mẩu tin hiện hành sẽ được đổi sang mẩu tin bookmark.

Sử dụng tập hợp Errors và đối tượng Error để xử lý lỗi

Ứng dụng có thể xử lý lỗi trong DAO bằng cách sử dụng đối tượng Error và tập hợp Errors. Bởi vì Errors có sẵn trong lập trình cơ sở dữ liệu, một hoạt động nào đó đều có thể phát sinh nhiều hơn một lỗi. (Điều này chính xác với lập trình Client / Server, trong đó, ví dụ như khi server bị treo, tầng trung gian bị ảnh hưởng theo và trình điều khiển ODBC sẽ bị thất bại). Cả 3 tầng này đều phát sinh thông báo lỗi của riêng chúng, nhưng ta sẽ không thấy các thông báo lỗi này trừ phi ta có một tập hợp để duyệt qua).

Tập hợp Errors, thay vì đối tượng Error duy nhất, cho phép ta duyệt qua tất cả lỗi để xác định nguyên nhân vấn đề.

Ví dụ sau đây trình bày cách lặp xuyên qua tập hợp Errorscủa DBEngine để xem các lỗi phát sinh.

Option Explicit
    ' References: MS DAO 3.51
    Dim db As Database
    Dim rs As Recordset
    Private Sub cmdBadFileName_Click() On Error GoTo ErrHandler
    Set db = OpenDatabase("....DBslez.mdb") Exit Sub
    ErrHandler:
    Dim DBError As Error
    Debug.Print "Contents of DBEngine Errors Collection" Debug.Print "--------------------------------------"
    For Each DBError In DBEngine.Errors Debug.Print DBError.Description Next
    End Sub
    

Tạo một CSDL

Ta có thể sử dụng phương thức CreateDatabasecủa đối tượng DBEnginetrong DAO để tạo cơ sở dữ liệu Jet của Microsoft.

Khi tạo một cơ sở dữ liệu, ta phải cung cấp tên một tập tin (thường có phần mở rộng là MDB) và một locale. Locale là một chức năng của ngôn ngữ được dùng bởi người sử dụng ứng dụng; nó chỉ ra thứ tự đối chiếu cho cơ sở dữ liệu. Thứ tự đối chiếu xác định cách thức lưu trữ các dữ liệu dạng văn bản trong cơ sở dữ liệu theo mặc định.

Ví dụ sau tạo một cơ sở dữ liệu. Ngoài ra, nó còn nối thêm một bảng duy nhất với 2 trường vào cơ sở dữ liệu .

Option Explicit
    ' References MS DAO 3.51
    Private db As Database
    Private td As TableDef
Private f As Field
    Private Sub cmdCreate_Click() On Error GoTo ErrHandler
    Set db = DBEngine.CreateDatabase("....DB
ewdb.mdb", dbLangGeneral) Set td = New TableDef
    Set f = td.CreateField("LastName", dbText, 50)
    td.Fields.Append f
    Set f = td.CreateField("FirstName", dbText, 50)
    td.Fields.Append f td.Name = "tblSupplier" db.TableDefs.Append td Set db = Nothing
    MsgBox "The database newdb.mdb has been created." Exit Sub
    ErrHandler:
    If Err = 3204 Then
    MsgBox "Try deleting the database 'newdb.mdb' first, pal." Else
    MsgBox Err.Description
    End If
    End Sub
    

Bởi vì phương thức CreateDatabase phát ra một lỗi nếu cơ sở dữ liệu đã có sẵn, chương trình này chứa phần xử lý lỗi thông báo cho người sử dụng những gì cầm làm khi cơ sở dữ liệu đã có sẵn. Cũng lưu ý rằng ta không cần tạo một đối tượng DBEngine. Nó luôn có sẵn để sử dụng bởi ứng dụng.

Sử dụng đối tượng TableDef để thao tác với bảng

Ta sử dụng đối tượng TableDef để thao tác với cấu trúc của các bảng trong ứng dụng. Ta có thể dùng đối tượng TableDef để tạo bảng mới hoặc thay đổi bảng hiện hành.

Option Explicit
    ' References: Microsoft DAO 3.51 Object Library
    Dim db As Database
    Private Sub Form_Load()
    Set db = OpenDatabase("....db
ovelty.mdb") End Sub
    Private Sub cmdCreate_Click() On Error GoTo ErrHandler
    Dim td As TableDef
    Dim f As Field
    Set td = New TableDef Set f = New Field f.Name = "FirstName" f.Type = dbText
    td.Name = "tblEmployeeNew" td.Fields.Append f db.TableDefs.Append td
    MsgBox "Lo, the table has been created." Exit Sub
    ErrHandler:
    If Err.Number = 3010 Then
    MsgBox "You can't create the table twice, chief." Else
    MsgBox Err.Description
    End If
    End Sub
    

Option Explicit
    ' References MS DAO 3.51
    Dim db As Database Dim qd As QueryDef Sub Form_Load()
    Set db = OpenDatabase("....DB
ovelty.mdb") End Sub
    Private Sub cmdCreate_Click() On Error GoTo ErrHandler
    Set qd = New QueryDef
    qd.SQL = "SELECT * FROM tblCustomer " & _ "WHERE LastName Like 'L*' " & _ "ORDER BY [LastName], [FirstName]"
    qd.Name = "qryCustomerSortName"
    db.QueryDefs.Append qd
    MsgBox "Whaddya know, the query was created." Exit Sub
    ErrHandler:
    MsgBox "There was an error creating the querydef. (" & _ Err.Description & ")"
    End Sub
    

Private Sub cmdRun_Click() On Error GoTo ErrHandler Dim rs As Recordset
    Dim qd As QueryDef
    Set qd = db.QueryDefs("qryCustomerSortName") Set rs = qd.OpenRecordset
    Do Until rs.EOF
    lstCustomer.AddItem rs!LastName & " " & _ rs!FirstName & " " & _ rs!Address
    rs.MoveNext
    Loop
    Exit Sub
    ErrHandler:
    MsgBox "There was an error running the query. " & _ "Are you sure you created it?"
    End Sub
    

Dim db As Database
    Dim qd As QueryDef
    Set db = OpenDatabase("....DB
ovelty.mdb")
    Set qd = db.CreateQueryDef("qryCustomer" , "Select * from tblCustomer")
    

SELECT * FROM tblCustomer WHERE ID=pID
    

Option Explicit
    ' References MS DAO 3.51
    Private db As Database Private qd As QueryDef Private rs As Recordset Private Sub Form_Load()
    Set db = OpenDatabase("....DB
ovelty.mdb") Set qd = db.QueryDefs("qryCustomerByID") End Sub
    Private Sub cmdQuery_Click() qd.Parameters("pID").Value = txtID.Text Set rs = qd.OpenRecordset
    If rs.EOF And rs.BOF Then
    MsgBox "Sorry, no customers with that " & _
    "ID are in the database."
    Else
MsgBox rs!Address & vbCrLf & _
    rs!Phone, _
    vbInformation, _
    "Info for " & rs!FirstName & _ " " & rs!LastName
    End If
    End Sub