谁能帮我修改下VB6做的程序啊

模块一
Public Function FloppyDrive(sDrive As String) As Boolean
On Error Resume Next
FloppyDrive = Dir(sDrive) <> ""
End Function
窗口
Dim Flag As Boolean
Private Sub Command1_Click()
diskname = Year(Now) & "-" & Month(Now) & ".xls"
Flag = FloppyDrive("A:")
If Flag = False Then
MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", 48, "警告"
'-------------------------------
'函数:检查软驱中是否有盘的存在
'-------------------------------
Else
ExporToExcel ("select 员工信息.员工编号 as 员工编号,姓名,科室,职务,基本工资,津贴,工资扣,洗理,书报,交通,奖金,日期 from 工资总,员工信息 where 员工信息.员工编号=工资总.员工编号")
MsgBox "恭喜你，数据导出成功", 48, "祝贺"
Me.Hide
End If
End Sub
Private Sub Command2_Click()
Me.Hide
End Sub
Private Sub Form_Load()
Set con = New ADODB.Connection
c

VB6.0的小程序，不是很会做啊~~~~ vb6.0编写的程序如何保存修改设置？？ vb6.0写修改注册表程序 哪里能够下VB6.0的安装程序 为什么我的外接程序管理器没有 vb6资源编辑器 谁能帮我修改下ASP程序,谢谢了，中秋快乐！！ 谁能教我做下简单的程序? 我安装的VB6.0，MSDN在哪里下? 为什么我下的VB6.0无法安装 帮我修改下C++程序~急