Sub tt() Dim i1 For i1 = 1 To 10 Dim i As Integer Dim str As String Debug.Print str str = "1" i = 2 Next i1 End Sub 当调试运行时为什么程序总是从“Debug.Print str”开始而不是从红色的定义语句开始，还有为什么str，i都是默认上次一次的值，前面两条Dim i As Integer，Dim str As String不是每次都重新定义么，我是菜鸟，请大家帮解答一下。

如题。通常都是在程序中执行select指令，用rs得到返回，但怎么创建临时表，来保存rs记录集，处理完后再删除该表。

SQL环境： 地址：127.0.0.1，用户sa，密码无 数据库名：DATA_002_2011，表名：AA_BusObject，列1：cBusObname,列2：iAuThType 程序功能：（以下说到的控件可用其它控件，我只是举例） 1、text1里输入关建字（比如722）后点击按钮Command1。 2、程序搜索列1“cBusObname”的所有数据 3、以列表的形式显示出，列1中包含有关键字内容的所有行，并显示相对行的列2的内容 简单说就...

我用debug.print语句在立即窗口打印一组数据时，如果加断点，数据都能得到，但是后面的数据会把前面的数据冲掉，怎么回事呢

矛盾的错误，关于MSINET.OCX控件释放问题！ 我写个小程序用到MSINET.OCX控件..我把他加入了资源文件..我建立了一个标准模块用来释放MSINET.OCX控件到C:\WINDOWS\system32目录下..并且把MSINET.OCX控件名改为inet.ocx 程序就出了问题..找不到MSINET.OCX控件但是改回来就可以运行！ 我试了N次..好像程序只会认MSINET.OCX这个名字...这就怪了.. 书上竟然写成这样:（标准模块） ...

Dim XStart As Single Dim XOld, YOld As Single Dim mShape As Integer Private Sub Form_Load() Picture1.ScaleMode = 3 Picture1.DrawWidth = 1 End Sub Private Sub Option1_Click(Index As Integer)mShape = Index End Sub 。。。。。。。 编译时说：编译错误：过程声明与同名时间或过程的描述不匹配 这是怎么回事？

请问在用ado访问excel，文本数字可以访问，但是数字数值形式确访问不了，记录为空，为什么呢。

C#开发服务端，VB开发客户端，谁有类似的源代码 同样是TCP协议，但是通信不稳定，无法接收和发送消息啊？ 谁有这样的demo，求一个，或给一个思路

Private Sub cmdOK_Click() '取得用户输入的的用户名和密码 Dim user As String, pwd As String user = Trim(txtUser) pwd = Trim(txtPwd) '取得不同的身份，选择不同的表用以查询 Dim r As New ADODB.Recordset '先定义此数据集 Set r = DataEnv.rsClient '建立一个数据集的实例 '这句提示“编译错误，类型不匹配”是什么原因 Dim strSQL As String If Opt1.Value = True The...

我之前用VB连接好了ACCESS数据库，也能访问~~ 之后保存了工程，也关闭了VB程序，下次启动运行之前搞的东西，就出问题了，弹出ADODC1对话框说：找不到文件'd:\microsoft visual studio\vb98\XXX.mdb' 然后我按了确定实时错误，对象‘refresh’的方法‘Iadodc’失败 我引用的microsoft ADO 2.0 library 怎么搞的啊，我新手，遇到这问题，解决不了，望各位高手给予解决办法