求助VB添加数据库问题

Private Sub Command1_Click()
Dim str As String
 Dim i As Integer
 sSQL = "select * from goodsinfo order by id desc"
    If Rs.State <> 0 Then Rs.Close
    Set Rs = conn.Execute(sSQL)
    If Not Rs.EOF Then
       ' MsgBox "编号 [ " & Trim(Text1.Text) & " ] 已存在，自动编辑下一个！", vbInformation, "提示窗口"
    str = Rs.Fields("id")
    i = Val(str)
   i = i + 1
   str = CStr(i)
sSQL = "insert into goodsinfo values('" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & str & "')"
conn.Execute sSQL
   ' Exit Sub
    End If
Unload Me
Form5.Show
MsgBox "数据添加成功"

End Sub
程序是这样的，我想实现一个将数据添加到数据库的功能，但是为什么每次添加都需要点两下按钮，这个程序的添加编码是自动排序的。 --------------------编程问答-------------------- --------------------编程问答-------------------- 同样的问题，又来发帖啊。。。。

补充：VB ,  基础类