ms-access - リストボックスの値が変数に割り当てられていません

Question

リストボックスの値を変数に割り当てようとしていますが、コードを実行するたびに無効な Null の使用エラーが発生します。

Private Sub CmdEnter_Click()

Dim RS As dao.Recordset
Dim RS2 As dao.Recordset2

Dim FirstName As String
Dim Lastname As String

Dim I As Integer
Dim Department As String


FirstName = TxtFirstName.Value
Lastname = TxtLastName.Value

With LstDepartment

For I = 0 To LstDepartment.ColumnCount
    Department = LstDepartment.Column(I)
Next I

MsgBox Department

End With

'Set RS = CurrentDb.OpenRecordset(DBO_UserNamesTbl)

Set RS = db.OpenRecordset("INSERT INTO DBO_UserNamesTbl (UserNo, FirstName, LastName, Department) VALUES (1, Firstname, lastname, department)")

'RS.Execute "INSERT INTO DBO_UserNamesTbl (UserNo, FirstName, LastName, Department) VALUES (1, Firstname, lastname, department)"

Set RS = db.closerecordset(DBO_UserNamesTbl)

End Sub

リストボックスは、部門と呼ばれる既に作成されたテーブルから情報を取得し、表示され、問題なく値を選択できるようにします。