VB制作系统时出现这样一种情况怎么办

conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\book.mdb"
sql = "select * from 书籍信息 where 书籍编号='" & Text1.Text & "'"
g_rs.Open sql, conn, adOpenKeyset, adLockPessimistic

If Not g_rs.EOF And (Not IsNumeric(Text5.Text) Or Not IsNumeric(Text6.Text)) Then
MsgBox "输入数据不是数据类型或书籍编号重复!", vbOKOnly, ""
Else
g_rs.addnew
g_rs.Fields(0) = Trim(Text1.Text)
g_rs.Fields(1) = Trim(Text2.Text)
g_rs.Fields(2) = Trim(Combo1.Text)
g_rs.Fields(3) = Trim(Text3.Text)
g_rs.Fields(4) = Trim(Text4.Text)
g_rs.Fields(5) = Trim(Text5.Text)
g_rs.Fields(6) = Trim(Text6.Text)
g_rs.Fields(7) = Trim(DTPicker1.Value)
g_rs.Fields(8) = "否"
g_rs.Update
MsgBox "添加书籍信息成功!", vbOKOnly, ""
g_rs.Close

MsgBox "设置成功"

End If

Adodc1

VB制作系统时出现这样一种情况怎么办 我使用Ghost时出现这样的一种情况！ 这两天，我的电脑出现了这样一种情况 我上网的时候为什么总是出现这样一种情况？ VB制作SQL系统 空间模板制作时的标题为什么会出现这样的情况 为什么我制作的电子书会出现这样的情况 有这样一种情况 VB 如何制作系统工具条? 我在装系统是出现这样的情况：