Timeout for Oracleconnection

Question

I have a function to open the connection of the banks in Oracle and in this function I want to put a time limit to the attempt to connect to the bank.

I tried to use ConnectionString in this way

oConexao.ConnectionString = "Data Source = MeuBd; User Id = MeuID; Password = 88997k21; Connection Timeout = 10;"

But it didn’t work, falling into an exception and accusing that there is no support for the keyword: 'connectiontimeout'.

Function:

Private Shared Function AbrirConexaoOracle(ByVal sNomeBanco As String, Optional ByRef mensagem As String = "") As OracleClient.OracleConnection

        Dim oConexao As OracleClient.OracleConnection

        Try
            oConexao = New OracleClient.OracleConnection
            If sNomeBanco = "OUTROS" Then
                oConexao.ConnectionString = mensagem
                mensagem = String.Empty
            Else
                oConexao.ConnectionString = LerConnectionString(sNomeBanco) 'MontarConnectionString(sNomeBanco)
            End If                
            oConexao.Open()
        Catch ex As Exception
            mensagem = ex.Message.ToString
            If Not oConexao Is Nothing Then
                oConexao.Close()
                oConexao.Dispose()
            End If
        End Try
        Return oConexao

    End Function

How can I give this limit to the attempt at connection in the case of the use of OracleConnection ?