Dim myconnection As OracleConnection
        Dim strsql = "User ID=card;Password=card;Data Source=orcltest"
        myconnection = New OracleConnection(strsql)
        myconnection.Open()
        Dim oraclecomm As OracleCommand = Nothing
        oraclecomm = New OracleCommand("trans", myconnection)
        oraclecomm.CommandType = CommandType.StoredProcedure
        oraclecomm.Parameters.Add("cardno", OracleType.VarChar)

        oraclecomm.Parameters("cardno").Value = "889900"

        Dim da1 As New OracleDataAdapter()
        da1.SelectCommand = oraclecomm
        Dim ds As New DataTable()
        da1.Fill(ds)