爲什麽 數據庫不會更新顯示呢？每次錄入新數據后WLS哪一行還是空缺的，這個是爲什麽呢？但是數據庫里已經錄入了新數據。

Question

爲什麽 數據庫不會更新顯示呢？每次錄入新數據后WLS哪一行還是空缺的，這個是爲什麽呢？但是數據庫里已經錄入了新數據。Private Sub Command4_Click()
Dim sc As Integer
    If MainForm.Label1(14) = "" Or MainForm.Label1(15) = "" Then  'ÅДàÊÇ·ñÓДµ“þä›Èë
        sc = MsgBox("Please capture WYKO data first.", vbOKOnly, "Warning : ")
    Else
        
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim wls_l_num, wls_es_num As String
    Dim wls_ls_min, wls_ls_max, wls_ls_ave, wls_ls_ran, wls_ls_sd, wls_mea_cou, wls_mea_wa, wls_wa_l, wls_w1m1, wls_w1m2, wls_w2m2, wavelen As Long
    Dim wls_data, wls_time As Date
    Dim str1, str2, str3 As String
    
                'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=" & App.Path & "\WYKOData.mdb";Persist Security Info=True
        str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
        str2 = "Data Source=" & App.Path & "\WYKOData.mdb;"
        str3 = "Jet OLEDB:Database Password="
        
        conn.Open str1 & str2 & str3
        strSQL = "select * from WYKOData"
        rs.Open strSQL, conn, 3, 3
        rs.AddNew
        
        rs!WLS = Text1(6).Text
        
        rs.Update
        rs.Close
        conn.Close
        
        MsgBox ("Data Saved.")
        Adodc1.Refresh
        MSHFG1.Refresh
        
        
    End If
End Sub

Answer 1

............增加了一個TIMER 問題解決了
補充一個問題：
表頭設置為了A B C 這樣帶空格的形式 請問在VB里怎麼往其中添加數據呢？謝謝。

Answer 2

再補充一個問題：對數據庫更改之後 如何刷新     MSHFlexGrid  呢？