连接无法在VB.NET中打开

Question

我需要你的帮助。我最近在我的模块上遇到了“连接未打开”错误，有趣的是我没有编辑代码，它只是突然出现。关于我应该做什么的任何想法？

我正在使用Oracle数据库10g。

以下是代码：

Public con As New OleDb.OleDbConnection
Public dbProvider As String
Public dbSource As String

Public Sub connect()
    dbProvider = "PROVIDER = MSDAORA.1;"
    dbSource = "Data Source=localhost ; User Id=user ; Password=pass;"
    con.ConnectionString = dbProvider & dbSource
    con.Open() '<------------ERROR

End Sub