vb combobox连接数据库的问题

Question

Dim Cn As New Connection '声明一个连接
Dim Rs As New Recordset '声明一个记录集
Private Sub Form_Load()
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\数据库\数据库.mdb;Persist Security Info=False"
Set Rs = NothingRs.Open "select distinct 发货打印日期 from sjk", Cn, adOpenKeyset, adLockOptimisticDo While Rs.EOF = FalseCombo1.AddItem Rs.Fields("发货打印日期")Rs.MoveNextLoop
End Sub
这代码有问题  高手帮看看呗！

Answer 1

dim CN As ADODB.Connection 'ADO数据库连接变量
dim RS As ADODB.Recordset 'ADO数据记录集变量
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset

Answer 2

实时错误 94
无效使用   NULL  
出现了这个啊 ，这是怎么回事呢？？

Answer 3

Dim Cn As New Connection '声明一个连接 
Dim Rs As New Recordset '声明一个记录集 
Private Sub Form_Load() 
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\数据库\数据库.mdb;Persist Security Info=False" 
'Set Rs = Nothing'去掉 Rs.Open "select distinct 发货打印日期 from sjk", Cn, adOpenKeyset, adLockOptimistic Do While Rs.EOF = False Combo1.AddItem Rs.Fields("发货打印日期") Rs.MoveNext Loop 
End Sub 

Answer 4

Dim Cn As New ADODB.Connection '声明一个连接 ！！！！！！！！！
Dim Rs As New ADODB.Recordset '声明一个记录集 
Private Sub Form_Load() 
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\数据库\数据库.mdb;Persist Security Info=False" 
'Set Rs = Nothing'去掉 Rs.Open "select distinct 发货打印日期 from sjk", Cn, adOpenKeyset, adLockOptimistic Do While Rs.EOF = False Combo1.AddItem Rs.Fields("发货打印日期") Rs.MoveNext Loop 
End SubEnd Sub 

Answer 5

库中有记录此字段为 Null 值（未赋值）：Combo1.AddItem Rs.Fields("发货打印日期") & ""上面与空串连接，可以强制 Null 串转换为空串。