编译错误：在vb6中找不到方法或数据成员

大家好，我是一名php开发人员，但自从在一家公司工作以来，我得到了一份vb6项目的工作

这个软件很旧，至少有10年了，我一点也不懂vb6。但我仍然设法解决了一些错误，但现在我坚持下去，没有得到任何解决方案。我在编译项目时遇到了这个错误，突出显示了这段代码

with.Panels6=已选择

Public Sub StatusBarDateTime()
''    FrmMain.Stb1.Panels(5) = Time
    FrmMain.Stb1.Panels(6) = Format(Date, "dd-mmm-yyyy")
End Sub

当我删除代码中的这一行时，它会显示另一个错误

Compile error:
Sub or Function not defined

突出显示这行代码

Private Sub MDIForm_Load()
StatusBarDateTime
End Sub

我假设它正在声明函数。所以我也删除了这个函数

现在，在我编译again时删除了它之后，我得到了这样一个错误

Run time error'481'
Invalid picture

当我点击debug时，它会显示这行代码

Private Sub Form_Load()
FrmMain.Show
Dim strUser As String
Call Center_Align(FrmLogin)
OpenConnection
strUser = "select * from TMUser order by login_name"
rsUser.Open strUser, conpgdhm, adOpenKeyset, adLockOptimistic
Set CmbUserID = rsUser
CmbUserID = "login_name"
CmbUserID = "login_id"
End Sub

highlihting Set CmbUserID=rsUser行。现在我什么都没有了

我不知道解决这个问题后会出现多少错误，但这是下一部分。 首先我要解决这个问题。我不知道如何解决这个问题

如果有人能帮我的话，我现在忙了两天

提前谢谢。

这些很有帮助。。。。 它在那里停止的原因是，您试图将datareader或任何对象类型rsUser指定为字符串或int类型CmbUserID的值 你想把一整袋长方形装成一个圆形。这仅与您最近的错误有关。根据我在这里看到的情况，您缺乏VB6的经验，无法在没有帮助的情况下继续使用。我建议找个顾问。

---

希望这能有所帮助。

你的帖子令人困惑。导致错误的代码是什么？当我编译项目时，我遇到问题的代码是在这个函数Public Sub statusBarDateTime上，也许你不应该只是随意删除代码行和函数行。。。从SourceSafe或您的备份还原项目，然后重新启动。的可能重复项