vb+sql找不到服务器，求高手啊！！！

Question

Private Sub Command1_Click()
   Dim sqlselect As String
   Dim sqlxuanze As String
   Dim s As String
   If Trim(dwgcode.Text) = Empty Then
      MsgBox "请选择要修改的行!", vbCritical, dwgmanager.Caption
      Exit Sub
   End If
   sqlselect = "SELECT * FROM dwgmanager where 图面番号= '" & Trim(dwgcode.Text) & "' "
   'Set rsdwginput = cn.Execute("SELECT * FROM dwgmanager where 图面番号= '" & Trim(dwgcode.Text) & "' AND 版本号= '" & Trim(versionCombo.Text) & "' ")
   Call rsdwginput.Open(sqlselect, iConc, adOpenKeyset, adLockOptimistic, -1)
   If rsdwginput.RecordCount = 0 Then
      
             MsgBox "不存在此记录!", vbInformation + vbOKOnly, dwgmanager.Caption
    
   Else
            a = MsgBox("您确认要删除该用户吗?", 17, "删除用户信息提示")
            
              If a = vbOK Then
                 
                 sqlxuanze = "SELECT * FROM dwgmanager where [编号]= '" & Trim(dwgbh.Text) & "' "
                  Call rsdwgxuanze.Open(sqlxuanze, iConc, adOpenKeyset, adLockOptimistic, -1)
                        
                        If rsdwgxuanze.RecordCount > 0 Then
                              rsdwgxuanze.delete
                               rsdwgxuanze.Update
                             MsgBox "用户信息删除成功", 64, "删除用户信息提示"
                            
                                Dim sqldwgcode As String
                            sqldwgcode = "SELECT * FROM dwgmanager where 图面番号= '" & Trim(dwgcode.Text) & "'"
                              Call rsdwglist.Open(sqldwgcode, iConc, adOpenKeyset, adLockOptimistic, -1)
                              ' Set rsdwglist = cn.Execute(sqldwgcode)
                                  If rsdwglist.RecordCount <> 0 Then
                                    Set dwglistGrid.DataSource = rsdwglist
                                    Call dwgcodeShowGrid(rsdwglist, dwglistGrid)
                                       Else
                                    Set dwglistGrid.DataSource = Nothing
                                    Call NOShowGrid(dwglistGrid)
                                         End If
                                    rsdwglist.Close
   
                                         End If
                                     rsdwgxuanze.Close
                                          End If
                                 rsdwginput.Close
    End If
End Sub
执行到红色区域出错，rsdwgxuanze.RecordCount=1了，delete不了啊

Answer 1

a = MsgBox("您确认要删除该用户吗?", 17, "删除用户信息提示")
If a = vbOK Then
    sqlxuanze = "delete FROM dwgmanager where [编号]= '" & Trim(dwgbh.Text) & "' "
    iconc.execute sqlxuanze
    MsgBox "用户信息删除成功", 64, "删除用户信息提示"
end if