自动编号的问题

牧野白狼

Private Function TestConnect() As String     On Error GoTo Err_TestConnect      Dim strConnect As String     Dim Conn As Object    ' New ADODB.Connection      If Nz(Me.txtServer) = "" Or Nz(Me.txtDatabase) = "" Then         MyMsgBox "=86", vbCritical          '未指定数据库。         Exit Function     End If     strConnect = "rovider=SQLOLEDB" & _                  ";Data Source=" & Me.txtServer & _                  ";Initial Catalog=" & Me.txtDatabase & _                  ";User ID=" & Nz(Me.txtUserName) & _                  "assword=" & Nz(Me.txtPassword)          Me.lblTip.Caption = "Connect to the network database," & _                         "due to the need to search the database server in the network," & _                         "the pogram may temporarily lose response,please be patient."     '    Me.lblTip.Caption = "连接网络数据库时，由于需要在网络中搜索数据库服务器，" & _          "程序可能会暂时失去响应，请耐心等待。"     Me.Repaint     Set Conn = CreateObject("ADODB.Connection")     Conn.ConnectionString = strConnect     Conn.ConnectionTimeout = 30     Conn.CommandTimeout = 30     Conn.Open     Conn.Close      TestConnect = "ODBC" & _                   ";DRIVER=SQL Server" & _                   ";SERVER=" & Me.txtServer & _                   ";DATABASE=" & Me.txtDatabase & _                   ";UID=" & Me.txtUserName & _                   "WD=" & Me.txtPassword Exit_TestConnect:     Me.lblTip.Caption = ""     Exit Function  Err_TestConnect:     TestConnect = ""     '忽略取消操作错误     If Err <> 3059 Then MsgBox "#" & Err & vbCrLf & Err.Description, vbCritical     Resume Exit_TestConnect End Function把“-”改成“”