类中的泛型try块，用于程序的多种用途（VB.net）

我不确定这是否可能，但我想在我的程序中使用这个try块的基本结构（在检索数据库时帮助处理连接问题），有没有更有效的方法（即在类中获取该块并将fill命令传递给它）将它粘贴到我已经很混乱的代码上

Dim retry As Boolean = True
Dim AllOk As Boolean = False
 While retry
  Try
      Tableadapter.fillbysomequery(dataset)
  Catch exError As MySql.Data.MySqlClient.MySqlException
      Select Case exError.Number
      Case 1042
          retry = CommonRoutines.ShowExceptionDialog(exError.Message, "No connection")
      Case 0
          retry = CommonRoutines.ShowExceptionDialog(exError.Message, "bad login")
      End Select
End Try
End While
If AllOk Then

  'Carry On with the setup stuff
End If

commonroutines.showexptiondialog是一个自定义异常对话框，根据“重试”或“中止”返回true或false

---

在10-15中的每一个中都有几个不同的填充查询，这只会使在这个地方复制这些内容变得非常混乱。

“在我已经很混乱的代码上”

-如果问题是代码很混乱，请清理它。例如，您建议的这段代码专门用于数据库查询。因此，与其将其全部放在整个代码库中，不如将所有数据库查询集中到可重用的代码中，然后只需将此代码放在该组件上即可。我在这个项目上断断续续工作了这么久，我从未想过这一点。”这真是太疯狂了，它可能真的会起作用……我可以把所有的“填充”放在一个班级里，然后根据需要给他们打电话。。。。。谢谢你，伙计。我很感激。