Connection not open in vb.net

Connection not open in vb.net

i need your help. I've been experiencing the "Connection not open" error
lately on my Module, the funny thing is I didn't edit the code, t just
suddenly appeared. Any ideas on what I should do?
Here's the code:
Public Sub connect()
dbProvider = "PROVIDER = MSDAORA.1;"
dbSource = "Data Source=localhost ; User Id=a_consencino ;
Password=consencino;"
con.ConnectionString = dbProvider & dbSource
con.Open()
End Sub