Dim cmd As New OracleCommand
        cmd.Connection = conn
        conn.Open()
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "insert into test.A values (:x)"
        cmd.Parameters.Add("x", OracleDbType.Number).Value =....
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        conn.Close()

 Dim cmd As New OracleCommand
        cmd.Connection = conn
        conn.Open()
        Try
            Dim y As Array = Split(TextBox1.Text, vbCrLf)
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "insert into test.A (id) values (:x)"
            For Each z In y
                cmd.Parameters.Add("x", OracleDbType.Number).Value = z
                cmd.ExecuteNonQuery()
            Next z
            'cmd.ExecuteNonQuery()
            'Dim reader As OracleDataReader = cmd.ExecuteReader()
            'While reader.Read()

            'End While
            cmd.Dispose()
            conn.Close()
        Catch ex As Exception

            MessageBox.Show(ex.Message)
        End Try