[Programmer-VB] Ubah Data Null

[Yunatan S. Widada]

temans,
ada yang bisa bantu?
saya punya tabel barang dan data di import dari file excell,
tapi ada satu field yang kosong (null). nah saya pengen ubah field
yang nilainya null tsb dengan program kecil seperti di bawah ini :
fields yg nilainya null ada di fields kh, dan pengen saya ganti dng larakter "."
program saya :

Public DBU As ADODB.Connection
Public rsBarangU As ADODB.Recordset

Private Sub CmdEdit_Click()
    Dim mys As String
    mys = "select * from barang"
    Set rsBarangU = New ADODB.Recordset
    rsBarangU.Open mys, DBU, adOpenDynamic, adLockOptimistic
    If Not rsBarangU.EOF Then rsBarangU.MoveFirst
    Do While Not rsBarangU.EOF
        If rsBarangU.Fields("kh").Value = Null Then
            rsBarangU.Fields("kh").Value = "."
            rsBarangU.Update
        End If
        rsBarangU.MoveNext
    Loop
    x = MsgBox("Update Selesai...!!!", vbInformation)
    Unload Me
End Sub
Private Sub Command6_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Set DBU = New ADODB.Connection
    DBU.Provider = "microsoft.jet.oledb.4.0"
    DBU.Open App.Path & "\newtb.mdb", "Admin", ""
    DBU.CursorLocation = adUseClient
End Sub

tapi kenapa ga mau yah??? ada yang bisa bantu???

regards

tan