VB实现list1(预选课程)保存到list2(已选课程)报错，求大神解决

Question

具体就在题目中了，提示如下：运行时错误，无法将NULL值插入'编号'，表‘学分制选课.dbo’,选课记录；该列不允许空值。INSERT失败，vb代码如下：
Private Sub cmdSave_Click()
    Dim i%
    If List1.ListCount > 0 Then
        '添加课程选修记录
        With objSelected
            For i = 0 To List1.ListCount - 1
                .AddNew
                .Fields("编号") = List1.List(i)
                .Fields("学号") = Trim(cmbNum)
                .Update
                List2.AddItem List1.List(i)
            Next
        End With
        List1.Clear
    End If
End Sub
数据库中表选课记录（编号，学号，课编号，成绩），成绩可以为空，其他不为空，求解

Answer 1

  With objSelected
  For i = 0 To List1.ListCount - 1
  If List1.List(i) > "" Then
  .AddNew
  .Fields("编号") = List1.List(i)
  .Fields("学号") = Trim(cmbNum)
  .Update
  List2.AddItem List1.List(i)
  End If
  Next
  End With