a questo punto se l'username e la password sono esatti (controllali una volta di più che male non fa... xd), così come il DataSource (stesso discorso di controllarli un'ulteriore volta come per l'username e la password) allora il problema è nella stringa di connessione che è scritta male...
tu utilizzi Oracle come DBMS giusto?
prova a guadare se con la stringa di questo link funziona:
http://www.connectionstrings.com/oracle#p15
prova prima a vedere se la connessione riesce oppure no con un try a parte (così se fai un debug capisci anche se è effettivamente li il problema)
Public Function Recuperadataset(ByVal strProcedura As String,
ByVal strConn2 As String) As DataSet
cn = New OleDbConnection(strConn2)
Try
cn.Open()
Catch ex As OleDbException
MessageBox.Show(ex.Message)
Finally
cn.Close()
End Try
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(strProcedura, cn)
da.SelectCommand.CommandType = CommandType.Text
Try
da.Fill(ds)
Return ds
Catch ex As OleDbException
Return Nothing
Finally
cn.Close()
End Try
End Function